Imprimir array en listBox

[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.

[ecfisa]

Hola Unkger, bienvenido a los foros de Club Delphi y como es costumbre con los que ingresan, te invitamos a leer nuestra guía de estilo.


Intenta de este modo:

Código Delphi [-]
...
implementation  

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;

procedure Usuarios(TS: TStrings);
var
  i: Integer;
begin
  nombres[1].nombre    := 'Luan';
  nombres[1].apellido1 := 'apellido1';
  nombres[1].apellido2 := 'apellido2';
  nombres[1].ciudad    := 'ciudad';
  nombres[1].edad      := 34;

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

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

  for i := 1 to 3 do
    TS.Add(Format('%s - %s - %s - %s - %d',[nombres[i].nombre,
      nombres[i].apellido1, nombres[i].apellido2, nombres[i].ciudad,
      nombres[i].edad]));
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  Usuarios(ListBox1.Items);
end;

Saludos

[Unkger]

Perfecto, lo que quería, gracias!