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;