Poniendo lo siguiente tampoco me funciona:
Código:
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.