Delphi Error al abrir una ventana showmodal en un ambiente MDI

[pockelsm3]

Disculpen el codigo anterior fue erroneo, este es el que estoy utlizando gracias

procedure TFGesoft.GAdminItems0Click(Sender: TObject);
begin
FConsulta:= TFConsulta.Create (Application);
FConsulta.Showmodal;
end;

[[enecumene]]

A ver, intenta esto:

Código Delphi [-]
 procedure TFGesoft.GAdminItems0Click(Sender: TObject);
begin
   FConsulta:= TFConsulta.Create (self);
try
   FConsulta.Showmodal;
finally
FConsulta.free;
end; //finally
end;

Saludos.

[[eduarcol]]

Prueba esto

Código Delphi [-]
procedure TFGesoft.GAdminItems0Click(Sender: TObject);
begin
   FConsulta:= TFConsulta.Create (Application);
      FConsulta.FormsStyle := fsNormal;
      FConsulta.Visible := False;
      FConsulta.Showmodal;
end;

[pockelsm3]

Me han sido de mucha ayuda, gracias a ustedes he podido solucionar mi problema