Wenn es wirklich mehrere Dinge zu tun gibt, wäre der Weg über Properties oder eine eigene Show-Routine (als "CustomShow(...)") ggf. besser.
Da bietet sich auch eine Enumeration an:
Delphi-Quellcode:
type
TFormMode = (fmAdd, fmEdit); // oder noch mehr
type
TForm4 = class(TForm)
// Komponenten
private
FFormMode: TFormMode;
procedure SetFormMode(Mode: TFormMode);
public
property Mode: TFormMode read FFormMode write SetFormMode;
end;
Und dann einfach parametrisiert aufrufen:
Delphi-Quellcode:
Form4.Mode := fmAdd; // In SetFormMode wird dann die Initialisierung erledigt
Form4.Show;
// oder auch mit eigener Show-Routine in Form4:
Form4.ShowWithMode(fmAdd);
Nur so als Anregung...
Viele Grüße