checklistbox запись отмеченных строк

[_Fobos_]

Здравствуйте уважаемые господа!
как сохранить отмеченные строки checklistbox в файл?
заранее благодарен

[Stilet]

Файл текстовый, бинарный?
Если текстовый то:

var i:integer;
begin
 with TStringList.Create do begin
   for i:=0 to CheckListBox1.Count-1 do
    if CheckListBox1.Checked[i] then Append(CheckListBox1[i]);
   SaveToFile('Имя файла');
   Free;
 end;
end;

[_Fobos_]

class does not have a default property

[Slym]

а самому исправить?
нужно добавить items

[Stilet]

CheckListBox1.Items[i]
Неужели так сложно в хелп заглянуть?

[_Fobos_]

Моя невнимательность..
спасибо большое теперь все ясно