procedure TForm1.Button1Click(Sender: TObject);
var
List:TStringList;
i:Integer;
NewItem: TListItem;
begin
NewItem := nil;
Listview1.Items.Clear;
List:=TStringList.Create;
try
List.LoadFromFile('c:\Items.txt');
     for I:=0 to List.Count-1 do
     begin
       if List[I][1]=#9 then
       NewItem.SubItems.Add(Trim(List[I]))
       else if List[I][1]='\@\' then
      NewItem.ImageIndex:= StrtoIntDef (List[I][1],0)
else
begin
  NewItem:=ListView1.Items.Add;
       NewItem.Caption:=List[I];
       end;end;
finally
      List.Free;
end;
end;