procedure TADOConnTsKM.SaveParamFileUDL(const sFileUDL : string);
{
взять у класса FADOConnection строку подключения и сохранить в файл udl
[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB. 1 ;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=PM47\MYSERV}
var
  IDataInit   : IDataInitialize;
  s           : WideString;
  sFile       : WideString;
begin
  sFile := sFileUDL;
  IDataInit := CreateComObject(CLSID_DataLinks) as IDataInitialize;
  s := FADOConnection.ConnectionString + ';Initial Catalog=' + FADOConnection.DefaultDatabase;
  OleCheck(IDataInit.WriteStringToStorage(PWideChar(sFile),
              PWideChar(s), CREATE_ALWAYS));
  IDataInit := Nil;
end;