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