Помогите решить задачу

1) ********File1.pas*********
unit File1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Forms, ADODB, Db, StdCtrls,
  Controls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    adoLConnect: TADOConnection;
    adoLQuery: TADOQuery;
    Edit1: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses File2;
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  mb: String;
begin
  idF := StrToInt(Edit1.Text);
 
  adoLQuery.Active := false;
  adoLQuery.SQL.Text := iNumber(idF);
  adoLQuery.Active := true;
  mb := adoLQuery.Fields[0].AsString;
 
  Application.MessageBox(PChar(mb),'Test',MB_OK + MB_iconinformation);
end;
 
end.

2) ********File2.pas*********
unit File2;
 
interface
 
uses SysUtils;
 
var
  idF: Integer;
 
  function iNumber(idF:integer): string; far;
 
implementation
 
uses File1;
 
function iNumber(idF:integer): string;
var
   str: String;
begin
  str := 'select Name from Family where IDFam='
  Result := str + IntToStr(idF);
end;
 
end.
*****************************

***
  adoLQuery.Active := false;
  adoLQuery.SQL.Text := iNumber(idF);
  adoLQuery.Active := true;
  mb := adoLQuery.Fields[0].AsString;
***
был в File2.pas, например:
 
function qSel: string;
var
  mb: String;
begin
 
  adoLQuery.Active := false;
  adoLQuery.SQL.Text := iNumber(idF);
  adoLQuery.Active := true;
  mb := adoLQuery.Fields[0].AsString;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  idF := StrToInt(Edit1.Text); //Вставляется число, кот.потом берется из БД
 
  Application.MessageBox(PChar(qSel),'Test',MB_OK + MB_iconinformation);
end;