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

[ecfisa]

Hola darkbits.

El código podría ser más simple si supiera que componentes son estadorma y nrorma...

Pone en una unidad que utilices en los forms que mencionas (o create una al efecto e incluila) el siguiente procedimiento:

Código Delphi [-]
  ...
  procedure SetCtrlOnOff(Ctrl1, Ctrl2: TControl);
  ...
implementation

uses TypInfo;

procedure SetCtrlOnOff(Ctrl1, Ctrl2: TControl);
begin
  if GetPropInfo(Ctrl1, 'CAPTION') = nil then
    raise Exception.Create('Error: Propiedad Caption no encontrada');
  if GetStrProp(Ctrl1, 'Caption') = 'DEVUELTO' then
  begin
    Ctrl1.Enabled:= False;
    Ctrl2.Enabled:= False
  end
  else
  begin
    Ctrl1.Enabled:= True;
    Ctrl2.Enabled:= True;
  end;
end;
...

Llamadas ejemplo:

Código Delphi [-]
  SetCtrlOnOff(estadonorma, nrorma);  // correcto (si estadonorma tiene la propiedad Caption)
  SetCtrlOnOff(Button2,Button3);      // también correcto
  SetCtrlOnOff(Edit1, Label5);        // error!

Saludos.