Cursor Resource Einbinden klapt nicht warum ?

[turboPASCAL]

Das Problemchen ist das der Faustcursor immer wieder auf den Handcursor gesetzt wird.

Genau an dieser Stelle:

Delphi-Quellcode:

procedure TfrmPrintPreview.sbHandLupeClick(Sender: TObject);
begin
  if (sbHandLupe.Down) then PaintBox1.{Screen}Cursor:= crLupe
  else PaintBox1.{Screen}Cursor:= crHand;
end;

sbHandLupeClick wird in PaintBox1MouseUp aufgerufen.