[Thrasher]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Hide; // Прячем главную форму
 Form2.ShowModal; // Показываем вторую
 Show; // Показываем главную
end;