Zaznaczanie i usuwanie w CheckListBox

Cześć
Mam CheckBoxa którym zaznaczam lub odznaczam wszystko w CheckListboxa. Działać działa ale chce dodać jeszcze jednego CheckBoxa który będzie aktywny dopiero gdy odfajkujemy - "usuń zaznaczone". Da rade to jakoś upchać lepiej każda konstruktywna uwaga mile widziana. Dziękuję z góry.

private
   CheckUncheck :Boolean;
 public
   Procedure Check();
   Procedure Uncheck();
 end;

implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
CheckUncheck := False;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if CheckUncheck then
    Check()
 else
    Uncheck();
    CheckUncheck := not CheckUncheck
end;

Procedure  TForm1.Check();
begin
CheckBox1.Caption:='Uncheck All';
CheckListBox1.CheckAll(cbUnchecked, true, false);
end;

Procedure  TForm1.Uncheck() ;
begin
CheckBox1.Caption:='Check All';
CheckListBox1.CheckAll(cbChecked, false, true);
end;

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
if CheckBox1.Checked = true  then
CheckBox1.Checked := false;

Działać działa ale chce dodać jeszcze jednego CheckBoxa który będzie aktywny dopiero gdy odfajkujemy - "usuń zaznaczone".

Wytłumacz dokładniej.

Chodzi mi czy da się to jakoś zoptymalizować. Ja na razie jestem na etapie że potrafię sobie to obsłużyć zaprogramować ale na takim poziomie jak widać. Ja na przykład już nie widzę żeby tu coś dało się zrobić lepiej. A pytam dlatego bo jak się da coś takiego zoptymalizować to szybko zatrybie o co chodzi. A jak poproszę o coś skomplikowanego, to co ze ktoś to zrobi za mnie jak nie załapie a tu nie o to chodzi, wtedy było by to bez celowe. Tu troszkę mi tego kodu robi się na taką pierdułkę za duzo
Więc tak
CheckBox1 odznacza/zaznacza wszystko w CheckListBox
ChecKBox2 "usuń zaznaczone" pozycje w CheckListBox (wiem jak to zrobić)