Procedimiento Almacenado

[scooterjgm]

Poniendo lo siguiente tampoco me funciona:

FQueryText := 'exec PA';
FSqlQuery.Close;
FSqlQuery.SQLConnection := MiConexion;
FSqlQuery.SQL.Clear;
FSqlQuery.SQL.Add(FQueryText);
FSqlQuery.ExecSQL; //.Open;
ShowMessage (FSqlQuery.FieldValues['IdEmpresa'].AsString);

El procedimiento no tiene parámetros de entrada.
Con el ShowMessage compruebo si obtiene datos o no.

Muchas Gracias por su ayuda.