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


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,


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.