Hola.
Recibí bién tu ejemplo por pm.
Fijate que incluí el método de clase
ShowForm para que la creación se haga dentro del mismo código del form.
No tenes que llamar a Form2 así:
Código Delphi
[-]
procedure TForm4.Formulario22Click(Sender: TObject);
begin
tform2.Create(self).ShowModal; end;
Tenes que llamarlo de igual modo que lo hace Form1:
Código Delphi
[-]
procedure TForm4.Formulario22Click(Sender: TObject);
begin
TForm2.ShowForm(False); end;
Saludos.