Sender: TSaveDialog or TOpenDialog

[Martin W]

Hi;

Gibt es eine Möglichkeit folgendes Umzusetzten:

Delphi-Quellcode:

procedure Tserver_mainform_form.ExecuteDialog(OnCanClose: TCloseQueryEvent; Sender: TSaveDialog or TOpenDialog);
begin
  if Sender = TOpenDialog then
    begin
      Sender := TOpenDialog.Create(server_mainform_form);
      Sender.DefaultExt := 'xml';
      Sender.Filter := 'XML File / xml|*.xml';
      Sender.Title := 'Datei öffnen...';
      Sender.OnCanClose := OnCanClose;
      Sender.Options := [ofHideReadOnly,ofFileMustExist,ofEnableSizing];
      Sender.Execute;
      Sender.Free;
    end;
  if Sender = TSaveDialog then
    begin
      Sender := TSaveDialog.Create(server_mainform_form);
      Sender.DefaultExt := 'xml';
      Sender.Filter := 'XML File / xml|*.xml';
      Sender.Title := 'Speichern unter...';
      Sender.OnCanClose := SaveDialog1CanClose;
      Sender.Options := [ofOverwritePrompt,ofHideReadOnly,ofEnableSizing];
      Sender.Execute;
      Sender.Free;
    end;
end;

Momentan kommt wegen Sender: TSaveDialog or TOpenDialog folgende Fehlermeldung:

[Fehler] server_mainform_unit.pas(87): E2029 ';', ')' oder '=' erwartet, aber 'OR' gefunden

wie bekomme ich es trotzdem hin??? Es darf nur eine Prozedur sein, nicht 2

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]