Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
var
Form2: TForm2;
begin
Form2 := TForm2.Create(Self);
try
Form2.ShowModal;
finally
Form2.Free;
end;
Eventuell solltest du dir mal ein Grundlagentutorial angucken oder ein Buch für Anfänger lesen. Zumindest den grundlegenden Aufbau einer Prozedur sollte man kennen und wissen was Programmblöcke sind.