Código Delphi
[-] StdCtrls;
Procedure Cambia_Color_Letras();
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Cambia_Color_Letras();
end;
Procedure Cambia_Color_Letras();
begin
Form1.label1.Font.Color:=clRed;
end;
end.
Si los procedimientos los vas a utilizar en varios formularios tendras que hacer un "Use" en cada uno de ellos para referencia en el que se que encuentra el procedimiento.
Un Saludo.