Здравствуйте!

Подскажите пожалуйста - где найти
пример использования функций WinAPI
 FindFirstFile и FindNextFile ?

Пытался сделать процедуру:
--------------------------------
procedure TForm1.btnGetSpaceClick(Sender: TObject);
Var F: TSearchREc; Fa: Integer; FH,FH2: THandle; ii:integer;
 FD: TWIN32FindData; FileNam: pChar; FN: string;
begin
CurrentDir := DirectoryListBox1.GetItemPath
(DirectoryListBox1.ItemIndex);
Label1.Caption := CurrentDir;
FileNam:= pChar(CurrentDir+'\*.*');
Fa := faAnyFile; // атрибуты искомых файлов - любые;
FH := FindFirstFile(FileNam,FD);
Memo1.Lines.Append( 'HandleFirst= '+IntToStr(Cardinal(FH)));

while FindNextFile(FH2,FD) do
 begin
  Memo1.Lines.Append( 'Handle= '+IntToStr(Cardinal(FH2)));
  showmessage(IntToStr(Cardinal(FH2)));
 end;
... и т д ....

FH := FindFirstFile(FileNam,FD);

> где найти
> пример использования функций WinAPI
>  FindFirstFile и FindNextFile ?


В стандартной справке

> Пытался сделать процедуру

и что с ней не так?

ах, ну да... что за FH2 ???