Label üzerine gelince

[Altıner]

Merhaba, "FMX tarafında"

Label üzerine celince 90 sayısına, monuse scrolling ile yukarı veya aşağıya hareket ettirdiğime  sayının artırma veya ekleme nasıl yaparım?

var
Kac: Integer;


Kac:=90;

procedure TMainForm.Label1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Single);
begin
???

end;