[moo2k]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
Form2:TForm;
begin
Form2:=TForm.Create(Self);
Form2.Show;
Hide;
end;
end;