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

//Typ deswegen TForm, weil jedes Formular das du erstellst von TForm erbt
procedure TFormX.ShowWithCases(aForm: TForm);
begin
  if (aForm is Form1) then begin
    Showmessage('Form1 hat aufgerufen');
    FormX.Show;
    end
  else begin
    showmessage('Andere Form hat aufgerufen');
    FormX.Show;
  end;
end;					

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

procedure TFormX.ShowWithCases(aForm: TForm);
begin
  if (aForm is Form1) then
  begin
    Showmessage('Form1 hat aufgerufen');
    Self.Show;
  end
  else
  begin
    showmessage('Andere Form hat aufgerufen');
    Self.Show;
  end;
end;					

1:
2:
3:
4:
5:

function KalenderForm.ShowKalender(Sender: TObject): TDate;
begin
  KalenderForm.Show;
  Result := AusgewaehltesDatum; //Muss natürlich irgendwie Deklariert sein, oder du bekommst von wo anders dein Datum
end;					

1:
2:
3:

{...}
DBEdit1.Text := DateToString(KalenderForm.ShowKalender(Self));
{...}					

1:
2:
3:
4:
5:
6:

function TKalenderForm.ShowKalender(Sender: TObject; var SelectedDate: TDate): Boolean;
begin
  Result := Self.ShowModal = mrOk;
  if Result then
    SelectedDate := ...
end;					

1:
2:
3:
4:
5:
6:
7:

function TKalenderForm.Execute(Sender: TObject): Boolean;
begin
  Result := Self.ShowModal = mrOk;
end;

if MyKalender.Execute(Self) then
  ...Mykalender.SelectedDate...					

1:
2:

if OpenDialogX.Execute then
  ShowMessage(OpenDialogX.FileName);					

1:
2:
3:
4:
5:

function TFormR.ShowKalender(Sender: TObject): TDate;
begin
  FormKalender.ShowModal;
  Result:= FormKalender.MonthCalendar1.Date;
end;					

1:

Datum := ShowKalender(Self);					

1:

if ShowKalender then Datum := ???;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function TFormR.ShowKalender(out Date: TDate): boolean;
begin
  Result := FormKalender.ShowModal = mrOk;
  if Result then
    Date := FormKalender.MonthCalendar1.Date;  
end;


if ShowKalender(Datum) then 
  // mach was mit dem Datum