memo5.Lines.Add(inttostr(a[i]));
procedure TForm1.Button6Click(Sender: TObject); begin FileSearch('d:\image'); memo5.Lines.Add(a); end;