[[enecumene]]

Creo que Roman se refería a esto:

Código Delphi [-]
procedure TMaetro.FormCreate(Sender: TObject);
var
  AItem: TListItem;
begin
If UnitStart.ClienteNQ.Consultar(CronosDB,ClienteQR,'SP_CLIENTE_SELECT') then
begin
  ListView1.Clear;
  ClienteQR.First;
  While not ClienteQR.Eof do
  begin
    ClienteQR.RecNo := AItem.Index;
    AItem.Caption := ClienteQR.Fields[0].AsString;
    AItem.SubItems(0) := ClienteQR.Fields[1].AsString;
    AItem.SubItems(1) := ClienteQR.Fields[2].AsString;
    ClienteQR.Next
  end;
end
else
MessageBox(Application.Handle,
             PChar('No es posible consultar a la Base de Datos'),
             PChar('Error de Conexion'),
             MB_OK + MB_ICONSTOP + MB_DEFBUTTON1 + MB_APPLMODAL);
end;

Saludos.

PD. Creo