CheckBox - problem z Checked

Witam, znowu problem, tym razem z checkboxem, psuje mi wszystko.
Jak zauważyłem CheckBox w momencie przypisania do niego wartości
Checked generuje zdarzenie onClick. Można temu jakoś zapobiec,
albo chociaż sprawdzić czy zdarzenie zostało wywołane przez
kliknięcie myszką czy przez zmianę tej że wartości ?

Na pewno masz problem z warunkiem czy jest wciśnięty czy nie w momencie OnClick... i dzieją się przykre rzeczy :/

Najprościej zastosować event OnMouseUp

procedure TForm1.CheckBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if CheckBox1.Checked = True then // znaczy że właśnie wcisnełeś go
else // nie wcisnełeś...
end;

PS: mam na myśli to, żebyś przeniół polecenia z OnClick do OnMouseUp, wtedy będzie można generować wciśnięcie CheckBoxa bez jego procedur OnClick.

Dzięki... [hurra] [cya] kamień spadł mi z serca...