[[gluglu]]

Una última ayudita, por favor.

He creado este código en una nueva Unit.pas :

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;
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.

En uno de los forms añado "uses GeneralFunctions". Pero no me permite hacer llamadas a las funciones definidas en GeneralFunctions.pas

Algo debo de estar haciendo mal en la implementación de las funciones a la unit adicional, no?

Gracias de nuevo.