[[Al González]]

Empezado por gatosoft

[...]Imagino a Al Gonzalez a la espera de que su propuesta de mejorar el WITH sea acogida[...]

Con las variables in-line, nos encaminamos a una políticamente sana extinción del With:

Código Delphi [-]
  // ...
  Var OKButton := GetMySpecialForm.FindComponent ('btnOK');

  If OKButton <> Nil Then
  Begin
    TButton (OKButton).Click;
    OKButton.Enabled := System.False;
  End;
End;

En todo caso, podríamos incluir una nueva palabra reservada de uso similar (pero seguro) al del With, como por ejemplo Using:

Código Delphi [-]
  // ...
  Using GetMySpecialForm.FindComponent ('btnOK') Do
    If It <> Nil Then  // "It", variable implícita y de uso obligado dentro del bloque Using.
    Begin
      TButton (It).Click;
      It.Enabled := System.False;
    End;
End;

Un abrazo propuesto.

Al González.