Не работает поиск файлов помогите

[SeЯgey]

хочу переделать данную функцию для выбора файлов из папки, но она не работает исправте, если есть ошибку?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Masks;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
type
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
var
F: TSearchRec;
Path: string;
Attr: Integer;
begin
{Искать все файлы в заданной директории с расширение .*}
Path := 'c:\*.*';
Attr := faanyfile;
FindFirst(Path, Attr, F); // В данном месте выдает ошибку
{Если хотя бы один файл найден, то продолжить поиск}
if F.name <> '' then
begin
ListBox1.Items.Add(F.name); {Добавление в TListBox имени найденного файла}
while FindNext(F) = 0 do
ListBox1.Items.Add(F.name);
end;
FindClose(F);
end;
end.

[SunKnight]

неправильно сделано, нужно
var r:integer;
..............
r:=FindFirst(Path, Attr, F);
while r=0 do //если нашли то возвращает 0, если нет то 1
begin
.................
end;

[SeЯgey]

Проблема в том, что ругается
на этой строке FindFirst(Path, Attr, F); // В данном месте выдает ошибку,
Выводит вот это [Error] Unit12.pas(80): Types of actual and formal var parameters must be identical
а конкретно на < F >?

[mihali4]

Вы нам привели код Unit1, а ругается у вас на Unit12.
Дальше:
procedure TForm1.Button1Click(Sender: TObject);
type
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
var
F: TSearchRec;

Кто вас научил этой глупости? Немедленно уберите (красное, если непонятно).

[SeЯgey]

unit1,unit12 пробные программы, а действие одно и ошибка одинакова.
Я брал из теории, а там необходимо обьявлять написано,
а теперь удолил и все работает.
Спасибо!