Нил проверку не пройдёт

Я знаю, но в первом варианте нет проверки, а значит потенциально там краш

Ну первый вариант не лучший, да. Надёжнее проверять

Надёжнее явно запрашивать конкретные данные посредством передачи их в аргументах метода, а не совать в метод целый объект ради 1-2х свойств

Ну и тут согласен. Но может там обработчик события

Мой код выше был написал в таком методе
procedure Tfm.ShapeAllMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);

c with будет еще короче ;)

function CalcLeftTop(const ALeft, ATop, AX, AY, AFX, AFY: Double; out AOutLeft: Double; out AOutTop: Double): Boolean;
  begin
    Result := False;
    AOutLeft := ALeft + AX - AFX;
    AOutTop := ATop + AY - AFY;
    Result := True;
  end;

  procedure Tfm.ShapeAllMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  begin
    if TryCalcLeftTop(ShapeAll.Left, ShapeAll.Top, vX, vY, vFX, vFY, vOutLeft, vOutTop) then
    begin
      ShapeAll.Left := vOutLeft;
      ShapeAll.Top := vOutTop;
    end
    else
      raise E;
  end;

грубо говоря этот код закроет дыру с Sender'ом, возможно кривым кастингом и неявной работой.

Может немного избыточно, зато более ясно что и куда движется и как работает

vX, vY, vFX, vFY это те самые волшебные переменные которые были в изначальном примере

Kiss принцип плачет )

function CalcLeftTop(const ALeft, ATop, AX, AY, AFX, AFY: Double; out AOutLeft: Double; out AOutTop: Double): Boolean;
  begin
    Result := False;
    AOutLeft := ALeft + AX - AFX;
    AOutTop := ATop + AY - AFY;
    Result := True;
  end;

  procedure Tfm.ShapeAllMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  begin
    if TryCalcLeftTop(ShapeAll.Left, ShapeAll.Top, vX, vY, vFX, vFY, vOutLeft, vOutTop) then
    begin
      ShapeAll.Left := vOutLeft;
      ShapeAll.Top := vOutTop;
    end
    else
      raise E;
  end;

зачем result сетить 2 раза?

Ага, а потом вылетают баги в самых неведомых местах, а объяснить и отловить не могут :)

Ага. Вот из-за такого кода как раз 😂

Это привычка. На самом деле у меня в такое оборачивается более сложная логика которая может необоснованно упасть (в данном случае на `AOutLeft := ALeft + AX - AFX;
   AOutTop := ATop + AY - AFY;` ). Я там заглушку на try rxcept забыл добавить

🙈

приличные IDE ругаются на такую привычку

Я проходил эти волшебные костыли посредством Sender'a и потом тушил 5-ю точку когда интерфейсы менялись или вообще убирали

Как в анекдоте про программиста и два стакана.

function CalcLeftTop(const ALeft, ATop, AX, AY, AFX, AFY: Double; out AOutLeft: Double; out AOutTop: Double): Boolean;
  begin
    Result := False;
    try
    AOutLeft := ALeft + AX - AFX;
    AOutTop := ATop + AY - AFY;
      HttpRequest();
      raise Exception.Create('Error Message');
    Result := True;
    except

    end;
  end;

Вот подправил. Смысл в том что в HttpRequest может произойти вылет какого-то волшебного компонента для работы с Http