[Captain]

//Соединение АДО
CREATE(cn);
strConnection:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=ghghghh;'+
'Password=ffgfgfg;'+
'Initial Catalog=MyDB;'+
'Data Source=SERVER1;Auto Translate=true';
cn.ConnectionString:=strConnection;
cn.Open;
//Создание объекта Command
CREATE(cmd);
cmd.ActiveConnection :=strConnection;
cmd.CommandTimeout := 20;
cmd.CommandType := 1; //adCmdStoredProc
strCommand:='SELECT * FROM '+ FORMAT(Название Функции)+'('''+FORMAT(dtBeginDate)+''','''+FORMAT(dtEndDate)+''')';
cmd.CommandText :=strCommand;

CREATE(rst);
rst:=cmd.Execute;
//Обработка результата
WHILE rst.EOF = FALSE DO BEGIN
// Пробегаем по recordset
rst.MoveNext;
END;
CLEAR(rst);
CLEAR(cmd);
CLEAR(cn);