периодический вызов процедуры delphi

[xdeadman]

имеется класс игрока, у него имеется процедура process, как сделать так чтобы эта процедура периодически сама вызывалась?
в принципе можно было бы запихать ее в таймер, но все-же этот способ мне не совсем подходит

Код:

  player = class
    x:integer;
    y:integer;
    width:integer;
    height:integer;
    xspeed:real;
    yspeed:real;
    gravity:real;
    constructor Create;
    destructor Destroy; override;
    function BlockCollision(dx,dy:integer; map:world):boolean;
    procedure process(map:world);
  end;