сохранение содержания ListView в фаил( дэлфи )

[dyonysos]

никак не могу сообразить как сохранить в текстовый фаил(или лучше в tstrings) listitem-сы(у каждого по 6 колонок).
и как их потом загружать обратно?

PS:
вот что нашел:

Procedure SavListView(S: String; ListView: ListView);
Const Delimiter = '|';
Var ff: TextFile;
t: Integer;
begin
AssignFile(ff, S);
ReWrite(ff);
try
With ListView Do For t:=0 to Items.Count - 1 Do WriteLn(ff,StringReplace(Items[t].Caption + Delimiter + Items.Item[t].SubItems.Text,#13#10,Delimiter,[rfReplaceAll]));
finally
CloseFile(ff);
end;
end

а как потом из файла(или из tstrings) загружать все обратно?

и еще вопрос: как для отдельного итем-а поменять цвет шрифта на красный(отображение системных фаилов в фаил менеджере)?