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

[mamcx]

Piensa en términos de hacer "plantillas" y sustituye instancias especificas de clases con los tipos que estas representan (ósea, piensa en términos de datos/información no en términos de sustantivos)

Código Delphi [-]
function checkNorma(labelNorma:TLabel, checkNorma:TCheck)
var
  esDevuelto:Boolean;
begin
    esNoDevuelto := not labelNorma:TLabel.
Caption='DEVUELTO';

    nrorma.Enabled:=esNoDevuelto;
    estadorma.Enabled:=esNoDevuelto;
end;

P.D: Este codigo esta sin probar, y adivine que tipos son los que usas.