topgrid und checkbox states

[XXcD]

Ok ich glaube ich hab das problem gelöst fals es noch irgendjemanden interressieren sollte:

Delphi-Quellcode:

procedure TForm37.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Checkbox1.Checked=true then
begin
end
else
begin
 Label3.Caption:='1';
end;
end;

procedure TForm37.CheckBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Label3.Caption='1' then
begin
Checkbox1.Checked:=true;
Label3.Caption:='0';
end;
end;