Label'a Yazılan Yazıyı Mouse Yönünde Hareket Ettiren Program

Label1MouseMove
begin
if x<25 then
label1.Alignment:=taLeftJustify;
if (x>25) and (x<75) then
label1.Alignment:=tacenter;
if x>75 then
label1.Alignment:=tarightJustify;
if y<25 then
label1.Layout:=tltop;
if (y>25)and (y<75) then
label1.Layout:=tlcenter;
if y>75 then
label1.Layout:=tlbottom;
end;
end.
FormMouseMove
var
u,s:integer;
begin
s:=Label1.Left;
u:=Label1.Top;
if x<s+25 then
label1.Alignment:=taLeftJustify;
if (x>s+25) and (x<s+75) then
label1.Alignment:=tacenter;
if x>s+75 then
label1.Alignment:=tarightJustify;
if y<u+25 then
label1.Layout:=tltop;
if (y>u+25)and (y<u+75) then
label1.Layout:=tlcenter;
if y>u+75 then
label1.Layout:=tlbottom;
end;