[[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.