[icWasya]

>Можно подробнее? Я совсем запутался.

Код:

type
  TFormEntitySearch = class(TForm)
...
  private
    FConnection :TADOConnection;
...
function TFormEntitySearch.EntitySearchShow(aUser: Integer;
  inConnection: TADOConnection): Integer;
begin
    FConnection :=inConnection;//а потом раздавай куда хочешь
    aEntity.Connection := inConnection;
    Result := ShowModal = mrOK;
end;