Fórum Salvar o conteúdo de um CheckListBox com TFileStream #515835

Var
strm : TFileStream;

Begin

   strm := TFileStream.Create(ExtractFilePath(Application.ExeName)+'BKP.DAT', fmCreate);

   strm.WriteComponent(CheckListBox1);

   strm.Free;

end;

var
strm : TFileStream;

begin

 if FileExists(ExtractFilePath(Application.ExeName)+'BKP.DAT') then
 begin

      strm := TFileStream.Create(ExtractFilePath(Application.ExeName)+'BKP.DAT', fmOpenRead);

      strm.ReadComponent(CheckListBox1);

      strm.Free;

  end;