CheckListBox1.Items

procedure TForm1.Button2Click(Sender: TObject);
var
  sl: TStringList;
  str: string;
  i: integer;
begin
  sl := TStringList.Create;
  try
    for i := 0 to CheckListBox1.Items.Count - 1 do
    begin
      if CheckListBox1.Checked[i] then
      begin
        str:= StringReplace((CheckListBox1.Items[i]), '#9 ', ' ', [rfReplaceAll]);
        sl.Add(str);
      end;
    end;
    sl.SaveToFile('Mon Fichier.txt');
  finally
    sl.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  sl: TStringList;
  str: string;
  i: integer;
begin
  str := '';
  sl := TStringList.Create;
  try
    sl.Text := '';
    for i := 0 to CheckListBox1.Items.Count - 1 do
    begin
      if CheckListBox1.Checked[i] then
      begin
        str := str + StringReplace((CheckListBox1.Items[i]), '#9 ', ' ', [rfReplaceAll]);
      end;
    end;
    sl.Text := str;
    sl.SaveToFile('Mon Fichier.txt');
  finally
    sl.Free;
  end;
end;

var 
f: TextFile;
str: string;
i:integer;
begin
 try
    AssignFile(f,'mon fichier.txt');
    Rewrite(f); //pour ouvrir le fichier en écriture et écrase le contenu
  except
    on e: exception do
      raise Exception.Create('Erreur pendant la création du fichier :' + 'mon fichier.txt' +
                             sLineBreak + e.message);
//on cas d’erreur pendant la création
  end;
  try
  with  CheckListBox1 do begin
for I := 0 to Items.Count - 1 do
begin
if Checked[i]  then
begin
Append(f);
str:= CheckListBox1.Items[i]+' ';
Write(f, str);
end;
end;
end;
finally
CloseFile(f);
end;