[Rokuell]

Странно, у меня всё нормально работает. Попробуй проверить на другой винде (кстати, у тебя какая версия?).
Или изменить строки:

Код:

procedure TForm2.Button2Click(Sender: TObject);
begin
  Form1.Show;
  //Form2.Hide;
  Form2.Close;
end;