FindFirst, FindNext

mam coś takiego:

procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
FileAttrs: Integer;
begin
FileAttrs := faAnyFile;
if FindFirst('C:Windows*.*', FileAttrs, sr) = 0 then
begin
edit1.text := sr.Name;
FindNext(sr);
edit2.text := sr.Name;
FindNext(sr);
edit3.text := sr.Name;
FindClose(sr);
end;
end;

dlaczego zwraca mi cały czas 'WINDOWS' ???

if FindFirst('C:Windows*.*', FileAttrs, sr) = 0 then

może

if FindFirst('C:Windows\.', FileAttrs, sr) = 0 then