Загрузкак компонента не работает TCheckListBox

[Alexandr17]

procedure TMain1.FormCreate(Sender: TObject);
begin
  If FileExists(ExtractFilePath(Application.ExeName)+'Param\LKAM.IDL') then begin
    fstr:=TFileStream.Create(ExtractFilePath(Application.ExeName)+'Param\LKAM.IDL', fmOpenRead);
    fstr.ReadComponent(LKAM);
    fstr.Free;
  end;
  lblLKAM.Align:=AlTop;
  LKAM.Align:=AlTop;
  lblHintText.Align:=AlTop;
  MemoText.Align:=AlTop;
  MemoText.Clear;
  LKAM.Checked[0]:=True;
  LKAM.ItemEnabled[0]:=False;
end;

procedure TMain1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  If not FileExists(ExtractFilePath(Application.ExeName)+'Param\LKAM.IDL') then
    fstr:=TFileStream.Create(ExtractFilePath(Application.ExeName)+'Param\LKAM.IDL', fmCreate)
  else
    fstr:=TFileStream.Create(ExtractFilePath(Application.ExeName)+'Param\LKAM.IDL', fmOpenWrite);
  fstr.WriteComponent(LKAM);
  fstr.Free;
end;

Почему не работает загрузка компонента
точнее не загружаются данныеные его последний вид