Спидометр для курсора

[NEoMASTERR]

Добрый день, хочу сделать спидометр для мышки

PHP код:

var   
oldx,oldy:Integer;
rasst,speed:integer;
...

procedure TForm1.tmr1Timer(Sender: TObject);
var
  x,y:Integer;
begin
  x:=Mouse.CursorPos.X;
  y:=Mouse.CursorPos.y;
  rasst:=oldx-x+oldy-y;
  if rasst<0 then rasst:=rasst*-1;
  speed:=0;
  inc(speed,rasst);
  oldx:=Mouse.CursorPos.X;
  oldy:=Mouse.CursorPos.y;
  inc(counter);
  Inc(allspeed,speed);
  if speed>maxspeed then maxspeed:=speed;
  mmo1.Clear;
  mmo1.Lines.Add('Скорость '+inttostr(speed)+' п/сек');
  mmo1.Lines.Add('Максимальная '+inttostr(maxspeed)+' п/сек');
  mmo1.Lines.Add('Средняя: '+inttostr(allspeed div counter)+' п/сек');
end; 


Подскажите что неправильно