Hola...
El procedimiento es el mismo, solo que en lugar de usar el Query usas la Tabla...
Código Delphi
[-]
ADOTable.Open;
ADOTable.First;
while not ADOTable.Eof do
begin
ListBox1.Items.Add(Format('%s %s', [ADOTable.FieldByName('Nombre').AsString,
ADOTable.FieldByName('Apellidos').AsString]));
Next
end;
ADOTable.Close
Saludos...