[marcoszorrilla]

No veo exactamente lo que quieres hacer, pero puedes crear una Unidad que contenga esas variables e incluirla en el uses de esas dos que mencionas.

Código Delphi [-]
unit Global;

interface
uses Controls;

var
Estado:Integer;  //1:Altas, 2:Modificaciones, 3:Consultas.

AskBor:Boolean;  //Para controlar si borrarmos o no las líneas de una factura.
op1:String ='001';
op2:String ='002';
op3:String ='';
op4:String ='';
RepiteFecha:TDate;

Borra_Linea_Almacen:Boolean;
{Saber si es una
Compra = 1
 o
Regularización = 2
}
Compra_O_Regul:Integer;
Ver_Menu_B:Boolean;

//Descomponer fechas
dd,mm,yy:Word;

iNumero:Integer;

function RighString(Instring: String; Len:Integer):string;
function RoundEuros(Const X: Double): Double;
Function FillSpacesRight(cVar:String;nLen:Integer):String;


implementation

Un Saludo