Как обратиться к функции, расположенной в DataModule?

type
  TDataModule2 = class(TDataModule)
    ADOTable1: TADOTable;
function eslitablitsa(c:char):string;
 
 
 
function tdatamodule2.eslitablitsa(c:char):string;
var i:integer;
begin
end;

implementation
uses unit2;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
if datamodule2.eslitablitsa()...
end;

type
  TDataModule1 = class(TDataModule)
      function isAlphaRu( c: Char ): boolean;
 
 
function isAlphaRu( c: Char ): boolean;
begin
   Result := Ord( c ) in [168,184,192..223,224..255];
end;

unit uMakeEsk;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,jpeg, StdCtrls, FileCtrl, ComCtrls, ImgList, rxAnimate, rxGIFCtrl,RxGIF;
 
function MakeEsk(OpenFN:string;SaveFN:string;w:integer;h:integer):integer;
 
implementation
 
function MakeEsk(OpenFN:string;SaveFN:string;w:integer;h:integer):integer;

type
  TForm1 = class(TForm)
  ...
  private
    { Private declarations }
    slHTMLTable:tstringlist;
    function GetOffSetPath(PathPage,PathDir:string):string;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
 
implementation
 
function TForm1.GetOffSetPath(PathPage,PathDir:string):string;
begin
 
end;