Stuff

case fDirection of
  mdUpLeft: begin
    Left := Left - Trunc(fCurrentPos);
    Top := Top - Trunc(fCurrentPos)
  end;
  mdUp: Left := Left - Trunc(fCurrentPos);
  mdUpRight: begin
    Left := Left + Trunc(fCurrentPos);
    Top := Top - Trunc(fCurrentPos)
  end;
end;