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.