Экспорт информации из справочника цветов в файл

Файл:ExportColors.rar

uses Classes, SysUtils;
 const
   razdel='|';
   nl=#$0D#$0A;
 var
   cli:TColorItem;
   i:integer;
   f:TStringStream; 
   st:string;   
 begin    
   f:=TStringStream.Create;                                             
   // первая строка - заголовки
   st:=;
   st:=st+'ID_Color'+razdel;
   st:=st+'Наименование'+razdel;
   st:=st+nl;
   f.WriteString(st);   
   //
   for i:=0 to gd.ColorsDB.Items.Count-1 do
   begin
     cli:=gd.ColorsDB.Items.GetByNum(i);
     st:=;         
     st:=st+inttostr(cli.Id)+razdel+cli.Name+razdel;   
     st:=st+nl;                                                                 
     f.WriteString(st);   
   end;                            
   f.SaveToFile('colors.txt');
   f.Free;
 end;