Stuff

    case fDirection of                                       // Kommentar
      mdUpLeft  : begin                                      // Mer kommentar
                    Left := Left - Trunc(fCurrentPos);       // Ekstra kommentar
                    Top := Top - Trunc(fCurrentPos)
                  end;
      mdUp      : Left := Left - Trunc(fCurrentPos);         // Ytterligere kommentar
      mdUpRight : begin
                    Left := Left + Trunc(fCurrentPos);       // Og alle på samme innrykk...
                    Top := Top - Trunc(fCurrentPos)
                  end;
    end;