Delphi fill listbox со всеми столбцами базы данных

---

У меня есть столик

CREATE TABLE [main](
    [ID] INTEGER PRIMARY KEY AUTOINCREMENT, 
    [Name] TEXT, 
    [Address] VARCHAR, 
    [Phone] VARCHAR, 
    [E-Mail] VARCHAR, 
    [Vin] INTEGER, 
    [Year] VARCHAR, 
    [Make] VARCHAR, 
    [Model] VARCHAR, 
    [Job Hours] FLOAT, 
    [Pictures] GRAPHIC, 
    [Repair Order Number] INT, 
    [Purchase Order Number] INT, 
    [RO Description] VARCHAR);

Я хочу отобразить все столбцы в моей базе данных в моем listbox2.

Что я уже пробовал:

Я пробовал этот код, но он загружает только столбец Name ;
Я действительно вижу 2 других пустых элемента под столбцом имя

<pre lang="Delphi">begin
  AccessCameraAppForm.fdloadmainToListbox.Close;
  // AccessCameraAppForm.fdloadmainToListbox.SQL.Text := 'SELECT site FROM uyeler ORDER BY site';
  try
    AccessCameraAppForm.fdloadmainToListbox.Open;
    AccessCameraAppForm.ListBox2.Items.Clear;
    while not AccessCameraAppForm.fdloadmainToListbox.Eof do
    begin
      AccessCameraAppForm.ListBox2.Items.Add
        (AccessCameraAppForm.fdloadmainToListbox.Fields[0].AsString);
        AccessCameraAppForm.ListBox2.Items.Add
        (AccessCameraAppForm.fdloadmainToListbox.Fields[1].AsString);
        AccessCameraAppForm.ListBox2.Items.Add
        (AccessCameraAppForm.fdloadmainToListbox.Fields[2].AsString);
      AccessCameraAppForm.fdloadmainToListbox.Next;
    end;
  finally
    AccessCameraAppForm.fdloadmainToListbox.Close;
  end;

---