[Blackster]

procedure TForm1.button1Click(Sender: TObject);
begin
form2.show;
end;