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;