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.