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;
AskBor:Boolean; op1:String ='001';
op2:String ='002';
op3:String ='';
op4:String ='';
RepiteFecha:TDate;
Borra_Linea_Almacen:Boolean;
Compra_O_Regul:Integer;
Ver_Menu_B:Boolean;
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