Как передать в Функцию(процедуру) совойство Connection для AdoCommand

[silent_lab]

Вот этот код, хочу переделать в функцию :

procedure TSetings_form.JvImgBtn1Click(Sender: TObject);
begin
if OpenDialog.Execute then
  begin
    with TADOCommand.Create(nil) do
      try
        Connection := DBModule.ADOConnection;
        CommandText := 'SELECT * From Table';
        try
          Execute;
        except
          ShowMessage('Ошибка Создания таблици !');
        end;
      finally
       Free;
      end;
  end;
end;

вот примерно как будет:

procedure MyFunDB(Sender: TObject; TextSQL: string): Boolean;
begin
    with TADOCommand.Create(nil) do
      try
        Connection := // как тут указать ADOConnection;
        CommandText := 'SELECT * From ' + TextSQL;
        try
          Execute;
        except
          ShowMessage('Ошибка Создания таблици !');
        end;
      finally
       Free;
      end;
end;

но вопрос как передать значение Connection, я думаю что нужно передать как объект?
Но не могу понять как это все реализовать, потому как потом хочу все функции перенести в dll. но это в будущем .

[Korben5E]

чето что попало так это функция или процедура?

MyFunDB(Sender: TObject; ==>> MyFunDB(Connection : TADOConnection ?????

[Stilet]

procedure MyFunDB(Sender: TObject; TextSQL: string; con:TADOConnection): Boolean;
begin
    with TADOCommand.Create(nil) do
      try
        Connection :=con; // как тут указать ADOConnection;
        CommandText := 'SELECT * From ' + TextSQL;
        try
          Execute;
        except
          ShowMessage('Ошибка Создания таблици !');
        end;
      finally
       Free;
      end;
end;

Вызов сам напишешь?

[silent_lab]

функция или процедура, разница просто в том, вернет значение или нет.
Просто пока не решил.
Спасибо за ответы , разобрался !!!!