如果需要让别的单元可以调用，可以新建一个公共单元并在interface部分,var声明如下。

unit Unit_common;

interface

uses
  SysUtils;//如有必要还可添加其它单元名。
var

    function mytest(i : integer): string;

implementation

function mytest(i: integer): string;
var

 //如有函数的私有变量可在此声明

begin
  i := i + 1;
  result := inttostr(i);
end;

调用此函数时可在调用的单元中的user（在interface或implementation部分效果一样）部分增加此单元的单元名，例如:

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, Grids, Calendar, ComCtrls,
  Mask, DBCtrls, Unit_common, main, datamodel;

type
  Tfrm_login = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    

    ....................

    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure btn_okClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_login: Tfrm_login;

implementation

{$R *.dfm}

procedure Tfrm_login.btn_okClick(Sender: TObject);
var

    a:string;

begin
    .......

    a:=mytest(5);

    .......

end;