1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button2Click(Sender: TObject);
var opf1 : TOpenDialog;
begin
  opf1 := opf1.Create(self);
  opf1.Title := 'Waehlen Sie die zu analysierende Chunk-Datei aus';
  opf1.InitialDir := 'c:\';
  opf1.Options := [ofFileMustExist];
  opf1.Filter := 'Szenen-Dateien (*.scnd)|*.scnd|Alle Dateien (*.*)|*.*';
  opf1.FilterIndex := 1;
  opf1.Execute;
  Datei := opf1.FileName;
  opf1.Free;
end;					

1:

opf1 := TOpenDialog.Create(self);					

1:

opf1 := opf1.Create(self);					

1:

opf1 := TOpenDialog.Create(nil);					

1:
2:
3:
4:

  if opf1.Execute then
    // Jetzt das was gemacht werden soll wenn eine datei ausgewählt wurde und auf OK gedrückt wurde
  else
    // Jetzt das was gemacht werden soll wenn der Benutzer auf Abbrechen o.ä. geklickt hat.