[Страдалецъ]

Описать переменную до implementation и подключить модуль.

Код:

unit Unit2;

interface
Var
 i: Integer;
implementation

end.

Код:

unit Unit3;

interface

implementation
Uses Unit2;
function RetI: Integer;
begin
 RetI := i;
end;

end.