[leon2009]

про id забыли

Код:

FileSearch(IncludeTrailingBackSlash(dirName)+searchResult.Name,AddToMemoCb);

Код:

procedure TForm1.AddToMemoCb(AFileName : String; ASize : Integer);
begin
inc(id);
  Memo5.Lines.Add(Format('id: %id, File: %s; Size: %d',[AFileName,ASize]));
end;