Abfragen welche Action ausgelöst wurde

[missi]

durch meine ok button von der nebenform

Delphi-Quellcode:

procedure TfmAddSNr.BtnAddSerialClick(Sender: TObject);
var
  EString: String;
begin
  if (EdtSerial.Text <> '') and (EdtDescription.Text <> '') then
  begin
    if MEdtDate.Text <> '  .  .    ' then
    begin
      try
      StrToDate(MEdtDate.Text);
      except
        ShowMessage('Ungültiges Datum wurde angegeben!');
        ModalResult := mrNone;
        Exit;
      end;
        if Sender = fMain.TAEinfuegen then
        begin
          if fMain.TB1.Locate('Seriennummer', EdtSerial.Text, []) = False then
         .
         .
         .
end;