problème findfirst compilation

J'ai une erreure de compilation avec findfirst. Voici mon code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses
  SysUtils, Windows;
 
type
 
  TSearchRec = record
      Time        : Integer;
      Size        : Integer;
      Attr        : Integer;
      Name        : TFileName;
      ExcludeAttr : Integer;
      FindHandle  : THandle;
      FindData    : TWin32FindData;
end;
 
 
//Permet de faire une liste des fichier dans un répertoire
//-----------------------------------------------------------
Procedure liste;
 
var
SR : TSearchRec;
f : TextFile;
 
begin
  findfirst ('c:\in\*.*',faAnyFile, SR);
  AssignFile(f, 'c:\ftpedi\dir.txt');
  Append(f);
  Writeln(f, SR.name);
  while findnext(SR) = 0 do
    writeln(f, SR.name);
  findclose(SR);
  Flush(f);
  CloseFile(f);
end;

--------------------------------------------------------------

L'erreure donnée est
les types de paramètres VAR originaux et formels doivent être identique.

Merci