Programm starten

[ManuMF]

Delphi-Quellcode:

var FStream: TFileStream;

if not (DateiOpenDialog.Execute) then
  showmessage('Es wurde keine Datei gewählt!')
else
begin
  FStream := TFileStream.Create(DateiOpenDialog.FileName, fmOpenRead); 
  try
    ...
  finally
    FreeAndNil(FStream);
  end;
end;

DateiOpenDialog = TOpenDialog (unter Dialoge)

Gruß
ManuMF