>>586
単純な方法でいいなら、

procedure TForm1.Button1Click(Sender: TObject);
begin
　Form2.Show;
　Hide;
end;