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

[darkbits]

un saludo al club
tengo este codigo( abajo) lo utilizo en mas de 3 form del proyecto y en un form el codigo esta como 5 veces
es un simple comparador de estado.

Necesito una mano como se puede meter esto a un procedure estado; o no se como se hace esto.
que cuando lo necesito lllamo a ese procedure sin tener q pegar el codigo ma de 15 veces en el mismo proyecto.

Código Delphi [-]
  if estadorma.Caption='DEVUELTO' then
        begin
         nrorma.Enabled:=false;
         estadorma.Enabled:=false;
        end
        else
        begin
         nrorma.Enabled:=true;
         estadorma.Enabled:=true;
        end;