Cómo declarar e implementar funciones en una unidad

[ASUNCION]

Saludos para todos,


tengo esta unidad en mi sistema la utilizo para declarar esas variables, pero tambien la quiero utilizar para declarar funciones y no he podido

Código Delphi [-]
unit Global;

interface

Var
  Vusuario : string;
  vCia     : string;
  MonedaBase : String;
  Detener   : boolean;

implementation

end.

alguien me pude colocar una función sencilla en esta unidad para guiarme.


Gracias

[dec]

Hola,

Código Delphi [-]
unit Global;

interface

function SayHello() : boolean;
 
Var
  Vusuario : string;
  vCia     : string;
  MonedaBase : String;
  Detener   : boolean;

implementation

uses
  Dialogs;

function SayHello() : boolean;
begin
  Dialogs.ShowMessage( 'Hello!' );
  result := true;
end;

end.

[ASUNCION]

Gracias Dec.