optimizar el codigo para no tener lo mismo mas de 5 veces en el proyecto

[ecfisa]

Me olvidaba...

Seguramente notes un cambio con respecto al código del primer mensaje. Lo hice no por que no funcionara, si no por que mirando el código de mamcx, me dí cuenta que se puede reducir a:

Código Delphi [-]
procedure SetCtrlOnOff(Ctrl1, Ctrl2: TControl);
var
  Activo: Boolean;
begin
  if GetPropInfo(Ctrl1, 'CAPTION') = nil then
    raise Exception.Create('Error: Propiedad Caption no encontrada');
  Activo := not (GetStrProp(Ctrl1, 'Caption') = 'DEVUELTO');
  // o igualmente: Activo := GetStrProp(Ctrl1, 'Caption') <> 'DEVUELTO';
  Ctrl1.Enabled:= Activo;
  Ctrl2.Enabled:= Activo;
end;

Es la forma en que normalmente se haría, pero uno no siempre anda con todas las luces...

Saludos.