[Alegun]

Нарисовались такие процедуры сохранения\загрузки

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
 i : integer;
 sl: TStrings;
begin
 sl:= TStringList.Create;
 sl.Assign(ListBox1.Items);

 for i:= 0 to sl.Count -1 do
  sl[i]:= ColorToString(TColor(sl.Objects[i]))+' '+sl[i];
 sl.SaveToFile('qqq.txt');
 sl.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
sl: TStrings;
begin
sl:= TStringList.Create;
sl.LoadFromFile('qqq.txt');
with ListBox1 do
 begin
  Clear;
  for i:= 0 to sl.Count -1 do
   Items.AddObject(Copy(sl[i],Pos(' ',sl[i])+1,Length(sl[i])),
    TObject(StringToColor(Copy(sl[i],1,Pos(' ',sl[i])-1))));
 end;
 sl.Free;
end;

Проверил, работает