[roman]

Tienes que declarar las funciones en la sección interface:

Código Delphi [-]
unit GeneralFunctions;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, System.ComponentModel, Borland.Vcl.Grids, Borland.Vcl.DBGrids,
  Borland.Vcl.ExtCtrls, Borland.Vcl.StdCtrls, Borland.Vcl.Mask,
  Borland.Vcl.DBCtrls;

procedure GetFocus2(Sender: TObject);
procedure LoseFocus2(Sender: TObject);

implementation

procedure GetFocus2(Sender: TObject);
begin
  (Sender as TWinControl).Color      := clWindow;
  (Sender as TWinControl).Font.Color := clMaroon;
end;

procedure LoseFocus2(Sender: TObject);
begin
   (Sender as TWinControl).Color      := cl3DLight;
   (Sender as TWinControl).Font.Color := clNavy;
end;

end.

// Saludos