[leon2009]

про id забыли

Код:

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

Код:

1 2 3 4 5

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