[marcoszorrilla]

Código Delphi [-]
 unit Global;
 
 interface
 uses
 SysUtils,DmAnievas,Registry,Windows,Printers,Dialogs;
 Var
 AskBor:Boolean;
 nIntentos:Integer;
 nClave:Integer;
 Estado:Integer;
 nOpcion:Integer;
 
 
 Anno,Mes,Dia:Word;
 Pueblo:String;
 cFiltro:String;
 listado:Integer;
 cUsuario:String;
 nSuma:Integer;
 
 nReparaouble; //Número de reparación actual
 Function Codifica(s:String):String;
 function RoundEuros(Const X: Double): Double;
 function GrupoTrabajo : string;
 Function NombreUsuario():String;
 Function GetImpresora(Impre:String):Integer;
 
 Procedure BorraLck();
 
 Const
 clinDown = Chr(10)+Chr(13);
 
 implementation
 
 {Aqui iran todos los procedimientos y
 funciones declarados}
 
 
 
 function RoundEuros(Const X: Double): Double;
 var
 r:Int64;  //resto
 X2:Int64; //número
 x1:double;  //resultado
 begin
 x2:=trunc((abs(x)*1000)+0.5); //Tomo los 3 primeros decimales.
 
 r:=(x2 mod 10);//Compruebo si el 3 decimal es >=5
 x2:=trunc(x2/10);//desprecio el tercer decimal
 
         if r >= 5  then  //Si el 3 decimal era >= 5 sumo 1 al número
                 x2:=x2+1;
 
 x1:=x2/100; //Construyo el número con los 2 decimales
 
         if x < 0 then
                 result:=0 - x1
         else
                 result:=x1;
 
 end;
 
 
 
 end.

En todos los forms en que vayas a utilizar estas variables y funciones tienes que hacer un "Use" de esta unidad.

Un Saludo.