Filling a Listbox with Paradox(Delphi) Database

Question

Good afternoon, my friends. I’m having trouble filling a listbox with information from a Database table in Paradox, Data Source is the file "Gap03dm.Sourcechaves" and Datafield is "Field". How to do?

Answer 1

procedure TFrmPrincipal.Button4Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  Table1.First;
  while not Table1.Eof do
  begin
    ListBox1.Items.Add(Table1.FieldByName('CAMPO').AsString);
    Table1.Next;
  end;
end;