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;

[Mr.X]

procedure TForm1.Label1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
begin
 Label1.Text := ((Label1.Text).ToInteger + (WheelDelta / 120)).ToString;
end;

[Altıner]

(19-03-2023, Saat: 17:19)Mr.X Adlı Kullanıcıdan Alıntı:

procedure TForm1.Label1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
begin
 Label1.Text := ((Label1.Text).ToInteger + (WheelDelta / 120)).ToString;
end;

tesekkür ederm