Cargar datos en Listbox

[marcoszorrilla]

Aquí tienes un ejemplo, adáptalo a tu Tabla o Query.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 IbTable1.First;
   While not IbTable1.eof do
   begin
   ListBox1.Items.Add('Ejemplo: '+IbTable1Emp_no.AsString+' - '+IbTable1First_Name.AsString);
   IbTable1.Next;
   end;
 
 end;

He utilizado:
IbDatabase //Para la conexión
IBTransaction //Es obligatorio tener al menos una transacción
IbTable //Para conectarme a la tabla

TdataSource //Para poder visualizar los datos, en este caso en un rejilla

Este último no es necesario si solamente quieres cargar el Listbox.

Un Saludo.