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

[darkbits]

gracias por su ayuda
vi unos ejemplos y creo que es la forma mas facil trate de hacerlo no funciona

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

y lo llaman de esta forma en los los diferentes form

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
...
..
estado;
..
..
end;