Ayuda Con TListView

[MrCuCo]

Hola! necesito su ayuda lo que quiero hacer es mostrar un mensaje por cada item que haya en el Listview.

tengo este codigo

Código Delphi [-]
procedure TFrmPrincipal.Button1Click(Sender: TObject);   
Var     
X: Integer;     
Cap: String; 
begin   
For X := 1 To LvArchivos.Items.Count Do     
Begin       
Cap := LvArchivos.Items[X].SubItems.Strings[1];       
ShowMessage(Cap);     
end; 
end;

y me tira este error:
"project copiar raised exception class 'external: SIGSEGV'.
me marca esta linea dentro de listitem.inc:
Código Delphi [-]if FSubItems = nil

el compilador que uso es Free Pascal y uso Linux
les agradeceria que me pudieran ayudar

[Neftali [Germán.Estévez]]

Por favor, no repitas mensajes.
Supongo que se debe a un error (o al menos eso espero).

Edito tu mensaje para corregir las etiquetas.

En cuanto a tu pregunta. ¿Te suena de algo este fichero SIGSEGV? ¿Lo usas para algo?

[cocute]

para hacer lo que dices el codigo yo creo que seria este,
entendiendo que el listview no tiene subitems, ya que es algo
que no aclaras en la pregunta.

Código Delphi [-]
procedure TFrmPrincipal.Button1Click(Sender: TObject);   
 Var X: Integer;
 begin
    For X := 0 To LvArchivos.Items.Count -1 Do
     Begin
       ShowMessage(LvArchivos.Items[X].Caption);
     end;
 end;

recuerda que para este tipo de cosas si quieres recorrer los datos de cualquier componente
hay que empezar siempre desde 0 hasta count-1, si no te dará error

[MrCuCo]

perdon por postear tantas veces pero que es que no se me acomodaba bien el codigo y cada vez que lo arreglaba y le daba "enviar mensaje" se volvia a desacomodar y no sabia que se habia posteado de nuevo.

cocute : no sabia eso de que habia que empezar desde 0, es que yo siempre e programado en VB6 para windows y siempre se empezaba con 1 xD gracias me has salvado ya el codigo funciona gracias a ti tambien Neftali