Rysik, вот так:
unit Gvaruse;

interface
var
IFS3: Integer;
DIMBL : array[0..20] of integer;


implementation


end.
Делаешь Gvaruse.pas и где хочешь юзать, там и вставляешь: uses Kol,Gvaruse,Share;