Neden Çalışmıyor?

[fasttech]

Arkadaşlar çalışmayan kod işte su

unit uc;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, jpeg;
type

TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var
a:string;
SearchRec:TSearchRec;
begin
a:='d:\arabalar\*.jpg';
findfirst(a,faAnyfile,SearchRec);///****
label1.caption:=searchrec.Name;

end;

end.





Arkadaşlar (***) ile işaretli satırda söyle bir hata veriyor
>>Types of actual and formal var parameters must be identical<<

1 gün önce çalışan kod şimdi çalışmıyor. Helpindeki kodu da çalıştırmaya çalıştığımda bu hatayı veriyor. Anladığım kadarıyla fonksiyonun değişkenleri ile benim değişkenler aynı türden olmalıymış....:( değil mi?:(

[bkirgic]

procedure TForm1.Button1Click(Sender: TObject);

var
a:string;
SearchRec:TSearchRec;
kontrol=boolean;
begin
a:='d:\arabalar\*.jpg';
kontrol=findfirst(a,faAnyfile,SearchRec)=0;///****
while kontrol do
begin
if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
listbox.items.add(SearchRec.name) *******

kontrol=findnext(SearchRec)=0;
end;

end;

end.

[fasttech]

sorun herhalde tanımlanmış bir type'ı bir daha tanımlamakmış. type
tsearchrec = record
.
.
.
yazan yeri silince çalıştı.