Rückkehr nach Showmodal

[Sir Rufo]

Also wenn dann doch so (um den Speicherlecks vorzubeugen)

Delphi-Quellcode:

procedure Tmainform.die_prozedur(); 
begin 
  Timer1.Enabled := False; 
  with TForm2.Create( nil ) do
    try

      if ShowModal = mrOK then
        begin
          // alles mögliche abarbeiten
        end;

    finally
      Free;
    end;

  // self.setfocus(); <- das sollte nicht notwendig sein
end;