[jejo1984]

Luego acceso de esta forma:

Código Delphi [-]
procedure TFrm_lista_incidencia.Refresh_listado();
begin
  conectabd();
  PQConnection1.Transaction:=SQLTransaction1;
  SQLTransaction1.DataBase:=PQConnection1;
  SQLlist_inci.DataBase:=PQConnection1;
  SQL_mod_incidencia.DataBase:=PQConnection1;

  SQLlist_inci.Close;
  SQLlist_inci.Active:=False;
  SQLlist_inci.SQL.Clear;
  SQLlist_inci.SQL.Text:='SELECT * FROM LISTA_INCIDENCIA';
  Datasource1.DataSet:=SQLlist_inci;
  try
  SQLlist_inci.open;
  grid_lista_incidencia.RowCount:=1;
    while not SQLlist_inci.EOF do
    begin
      grid_lista_incidencia.RowCount:=grid_lista_incidencia.RowCount +1;
      grid_lista_incidencia.Cells[0,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[0].AsString;
      grid_lista_incidencia.Cells[1,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[1].AsString;
      grid_lista_incidencia.Cells[2,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[2].AsString;
      grid_lista_incidencia.Cells[3,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[3].AsString;
      grid_lista_incidencia.Cells[4,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[4].AsString;
      grid_lista_incidencia.Cells[5,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[5].AsString;
      grid_lista_incidencia.Cells[6,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[6].AsString;
      grid_lista_incidencia.Cells[7,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[7].AsString;
      SQLlist_inci.Next;
    end;
    PQConnection1.Close;
    except
    on E: Exception do
      begin
      Showmessage( PChar( E.Message )+ 'Error de SQL');
      SQLTransaction1.EndTransaction;
      end;
    end;