procedure TForm1.MFileMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var i:integer;
begin
form1.Canvas.Pen.Color:=clred;
for i:=0 to 99 do
begin;
sleep(1);
form1.Canvas.MoveTo(50,i+50);
form1.Canvas.LineTo(100,i+50);
end;
end;
procedure TFile.CMMouseLeave(var msg: TMessage);
var i:integer;
begin
inherited;
form1.Canvas.Pen.Color:=clBtnFace;
for i:=99 downto 0 do
begin;
sleep(1);
form1.Canvas.MoveTo(50,i+50);
form1.Canvas.LineTo(100,i+50);
end;
end;