анимация в Делфи

[Htenez]

Народ, подскажите пожалуйста, как осуществить анимацию в Делфи?
Необходимо, чтобы в зависимости от получаемых с сервера значений, Объект(в моей случае окружность) двигался по системе координат(опять же нарисованной).
Все что я пытался сделать, затирает либо все вместе, либо оси координат.
Вот здесь рисуется сама система координат(в данном случае просто черный квадрат разделенный двумя линиями)

procedure TForm1.FormPaint(Sender: TObject);
begin
  canvas.Pen.Width:=2;
  canvas.Brush.Color:=RGB(0,0,0);
  canvas.Pen.Color:=RGB(255,255,255);
  canvas.rectangle(200,0,600,400);
  canvas.Pen.Width:=1;
  canvas.MoveTo(400,0);
  canvas.LineTo(400,400);
  canvas.moveto(200,200);
  canvas.lineto(600,200);
Canvas.Pen.Mode := pmNotXor;
end;

Также пробовал такой-же рисунок сделать в Timage, тоже самое.....
Чего я не понял?
вот тут тестовое смещение окружности:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ClientSocket1.Active then
  begin
    ClientSocket1.Close;
    Exit;
  end;
  ClientSocket1.Host := Edit1.Text;
  ClientSocket1.Port := StrToInt(Edit2.Text);
  ClientSocket1.Open;
   {canvas.fillrect(canvas.cliprect);}
    canvas.ellipse(400-35,z-35,400+35,z+35);
    z:=z+10;
end;

canvas.fillrect(canvas.cliprect)

это я пробовал использовать для очистки канвы.... но выходит вообще полная чушь...