Ayuda para crear una clase

[estebanx]

Hola como estan? bueno quiero por favor que me ayuden con lo siguiente, necesito crear una clase para varios procedimientos que tengo, dichos procedimientos hacen mover una imagen.
He aqui el codigo para que la imagen se mueva
Primero las variables

Código Delphi [-]
  private
   deltax,deltay,posxi,posxf,posyi,posyf:integer;

luego el procedimiento caminar

Código Delphi [-]
procedure TForm1.caminar(x, y:integer);
 var
 sx,sy:boolean;
 begin
     PosXI:= img.Left;
     PosYi:= img.Top;
     PosXF:= X;
     PosYF:= y;
    // definimos Deltas de "avance"
     DeltaX := (PosXF - PosXI)div mov;
     DeltaY := (PosYF - PosYI)div mov;
    // Activamos el movimiento
   Repeat
    if (DeltaX > 0) then begin
      if ((img.Left + DeltaX) >= PosXF) then begin
       sX := True;
      end
      else begin
        img.Left := img.Left + DeltaX;
         Application.ProcessMessages;
        sleep(105);
      end;
    end
    else begin  // X negaiva
      if ((img.Left + DeltaX) <= PosXF) then begin
       sX:= True;
      end
      else begin
        img.Left := img.Left + DeltaX;
         application.ProcessMessages;
          sleep(105);
      end;
    end;
 // Y positiva
    if (DeltaY > 0) then begin
      if ((img.Top + Deltay) >= PosYF) then begin
        sY := True;
      end
      else begin
        img.tOP := img.Top + DeltaY;
        Application.ProcessMessages;
        sleep(105);
      end;
    end
    else begin  // Y negaiva
      if ((img.Top + DeltaY) <= PosYF) then begin
        sY := True;
      end
      else begin
        img.Top := img.Top + DeltaY;
        Application.ProcessMessages;
        sleep(105);
      end;
    end;
   until (sx=true)and(sy=true)
 end;

primero le mando los parametros desde el evento onmousedown del form, la idea es crear una clase que tenga varios objetos, caminar, saltar etc.
Gracias de antemano.