[Viajero]

Пример (не очень хороший):

Код:

ppFIBQuery.SQL.Text:=SQLstring;
  ppFIBQuery.ExecQuery;
  while not ppFIBQuery.Eof do ppFIBQuery.Next;
  cLength:=ppFIBQuery.RecordCount;
  ppFIBQuery.ExecQuery;
  SetPopupLength(cLength);

  for cCount:=0  to  cLength-1 do begin
    iID:=ppFIBQuery.FldByName[IdFldName].AsInteger;
    sID:=ppFIBQuery.FldByName[IdFldName].AsString;
    sValue:=ppFIBQuery.FldByName[ValueFldName].AsString;
  ............ здесь можно, например, ListBox1 заполнять

    ppFIBQuery.Next;
  end;
  ppFIBQuery.Close;