SaveStringToFile(FileName,'-------' + #13#10, True);
For I:=0 to ComponentsList0.Items.Count - 1 do
If ComponentsList0.Checked[I] then
begin
SaveStringToFile(FileName, '[Components] = ' + ComponentsList0.ItemCaption[I] + '.' + #13#10, true);
end;
SaveStringToFile(FileName,'--------------------------' + #13#10, True);