Frage zur mousemove Funktion!

[Delphieinsteiger]

Hallo
Hätte eine Frage zur Mousemove Funktion.
Habe folgenden Quelltext:

Delphi-Quellcode:

procedure TForm2.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  Begin
case y of
0:Label7.Caption:='50,0°';
1:Label7.Caption:='49,9°';
2:Label7.Caption:='49,8°';
3:Label7.Caption:='49,7°';
4:Label7.Caption:='49,6°';
5:Label7.Caption:='49,5°';
6:Label7.Caption:='49,4°';
7:Label7.Caption:='49,3°';
8:Label7.Caption:='49,2°';
9:Label7.Caption:='49,1°';
10:Label7.Caption:='49,0°';
end;

Da ich aber über 1000 pixel habe,die eine entsprechenden Gradzahl im Label anzeigen soll und ich nicht stundenlang tippen möchte wäre meine Frage ob nicht sowas in der Art möglich wäre:

Delphi-Quellcode:

procedure TForm2.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  Begin
case y of
0..10:Label7.Caption:='50,0°'..'49,0°';
end;

Da ich noch Anfänger bin wäre ich Dankbar für einen Tip!

[edit=Sharky]Delphi-Tags eingefügt Mfg, Sharky[/edit]