[[maeyanes]]

Creas una unidad:

Código Delphi [-]
unit Globales;

interface

uses
  // Lista de unidades...

function MyFuntion: string;

implementation

function MyFunction: string;
begin
  Result := 'Una cadena'
end;

end.

Luego la colocas en la clausula uses de cualquier forma o unidad donde la quieras usar y listo.


Saludos...