Использование функции из другого модуля

[Lokos]

Здравствуйте.
Каким образом возможно использовать функцию другого модуля и возможно ли вообще
Например есть модуль 1 и модуль 2 в модуле 2 написана функция

function Sum(a:integer;b:Integer):Integer;
begin
   Sum:=a+b;
end;

Как ее вызвать в модуле 1

[Прик]

unit Unit2

interface

  function Sum(a:integer;b:Integer):Integer;

implementation

function Sum(a:integer;b:Integer):Integer;
begin
   Sum:=a+b;
end;

end.

-----------------------------

Unit Unit1

interface

...

implementation

uses Unit2;

//вызов функции
  C := Sum(A, B);

end.

[Lokos]

пишет ошибку если добавить после interface

[Lokos]

А так работает

unit Unit2

interface

  

var
function Sum(a:integer;b:Integer):Integer;
implementation
uses

function Sum(a:integer;b:Integer):Integer;
begin
   Sum:=a+b;
end;

end.

[Прик]

У меня в приведенном коде нет слова var. С какого бодуна оно туда попало?
И слово uses не может быть "пустым", т.е. чтобы за ним не следовали имена модулей, используемых в этом.

Да, еще. Вызов функции как в примере, конечно, не будет работать. Его надо применять внутри любой дргой функции/процедуры или метода класса который объявлен (если он, конечно, объявлен) в Unit1.

[Lokos]

var это лично мой пример там объявлены глобальные переменные.
Uses есть модули.

Ошибка не в вызове функции. А в ее описании в Unite 2 то есть у меня не получилось написать след образом

unit Unit2

interface

  function Sum(a:integer;b:Integer):Integer;

потому что у меня там идет подключение модулей.
а вот после Uses все заработало. с varom загнал немного. Код такой

unit DM;

interface

uses
  SysUtils, Classes, Dialogs, FIBDatabase, pFIBDatabase, IdContext,
  IdTCPConnection, IdTCPClient, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdTCPServer, DB, FIBDataSet, pFIBDataSet, FIBQuery, pFIBQuery, frxClass,
  frxDBSet;
   function AutorizationClient():boolean;
type
  TDM1 = class(TDataModule) 
.......