[NumLock]

рисуй окружность через:

Код:

procedure Ellipse(X1, Y1, X2, Y2: Integer); overload;
procedure Ellipse(const Rect: TRect); overload;

в таймере инкрементируй/декрементируй нужные координаты и вызывай Invalidate.