Código Delphi
[-]var
S:String;
begin
S := Item.SubItems.Objects[0] as String;
end;
Así debería funcionarte.
También podés verificarlo antes, con
if (Item.SubItems.Objects[0] is String) then.
Espero que sirva. Sino, avisame así no me equivoco yo cuando lo necesite