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