Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
Strings: TStringlist;
begin
Strings := TStringlist.Create;
if od1.Execute then
Strings.Text := od1.Files.Text;
memo1.Text := Strings.Text; // hepsini göster
// memo1.Text := Strings[0]; // ilk dosyayı göster
end;