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.