Y cual es la duda o lo que quieres conseguir?
Aunque el código debería ser algo así:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
vform2: TForm2;
begin
vform2 := TForm2.Create(self);
Form1.Hide;
vform2.showmodal;
Form1.Show;
FreeAndNil(vform2);
end;
Más o menos, y sin coltrol de errores, eso te lo dejo a ti