crear un UNIT con las funciones globales de todos los formularios

// FORM1

unit Unit1;

interface

uses
(...), unit2; // unit2 es el unit de funciones

(...)

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a: funciones; // 'a' es el objeto que creamos de la clase funciones

(...)


//**************************************************************
procedure TForm1.Button1Click(Sender: TObject);
begin
a.saludar('pablo'); // funcion de la clase funciones
end;


=========================================================================================================
=========================================================================================================
=========================================================================================================


unit Unit2;

interface


uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, CPort;

type

funciones = class

private
{ Private declarations }
public

procedure saludar(string dato);
procedure timer();
procedure RelojTimer(Sender: TObject);


end;

var
texto: string; // variable global en unit2
Reloj: ttimer;

implementation

//***************************************************************
procedure funciones.saludar(string dato);
begin
showmessage('hola'+dato);
end;

//***************************************************************
procedure funciones.timer();
begin

Reloj := TTimer.Create(Reloj);
Reloj.Interval:=2000; // cada 2 segundos
Reloj.Enabled:=true; // activo el Reloj
Reloj.OnTimer:= RelojTimer; // donde ira cuando pase el tiempo

end;

//***************************************************************
procedure funciones.RelojTimer(Sender: TObject);
begin
showmessage('esto es del reloj');
end;