Fehlermeldung bei "FindFirst()"

[Bastler]

Ich habe folgenden Code:

Delphi-Quellcode:

type  TSearchRec = record
      Time: Integer;   // Zeitstempel der Datei.
      Size: Integer;   // Größe der Datei in Byte.
      Attr: Integer;   // Dateiattribute der Datei.
      Name: TFileName;   // DOS-Dateiname und -Dateinamenserweiterung
      ExcludeAttr: Integer;
      FindHandle: THandle;
      FindData: TWin32FindData;
      end;
var
  Form1: TForm1;
  pfad:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var SuchRec:TSearchRec;
begin
SelectDirectory('Wähle den Ordner', '', pfad);

FindFirst('c:\programme\*.*', faAnyFile, SuchRec); //*
if ExtractFileExt(Suchrec.name) = 'log' then
Combobox1.Items.Add(Suchrec.Name);
if FindNext(SuchRec) = 0 then  //*
Combobox1.Items.Add(SuchRec.Name)
else
FindClose(SuchRec);  //*

end;

Bei den mit //* makierten Zeilen gibt er mit immer folgende Fehlermeldung aus:

Zitat:

[Fehler] Unit1.pas(51): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

Aber meiner Meinung nach stimmen die Parameter überein... (vor allem, weil es das gleiche Record ist, wie es in der Hilfe angegeben ist)