[Unkger]

Buenas!, como puedo hacer para que se imprima todo el arreglo en un listBox, mi código es el siguiente:

Código Delphi [-]
implementation
  procedure Usuarios;
    type
      Tnombres = record
      nombre : String[10];
      apellido1 : String[10];
      apellido2 : String[10];
      ciudad : String[10];
      edad : Integer;
      end;
    var
      nombres : array [1..3] of Tnombres;
      i: Integer;
begin
  with nombres[1] do
begin
  nombre := 'Luan';
  apellido1 := 'apellido1';
  apellido2 := 'apellido2';
  ciudad := 'ciudad';
  edad := 34;
  end;

nombres[2] := nombres[1];
nombres[2].nombre := 'Moon';
nombres[3] := nombres[1];
nombres[3].nombre := 'Ami';

for i := 1 to 3 do
  begin
  with nombres[i] do
  begin
  Form1.ListBox1.Items.add(nombre); //así solo me saca los nombres pero quiero que salga lo demás ¿¿¿???
  end;
  end;
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Usuarios;
end;

end.