procedure WriteUDLFile (const UDLFile: string);

const

 // Default ConnectionString used by our application (SQL Server)

 SConnect = 'Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=OurExampleDB;' +

            'Data Source=OURSERVER;Packet Size=4096';

var

 DataInitialize: IDataInitialize;

 wUDLFile: array[0..MAX_PATH - 1] of WideChar;

begin

 // Create the DataInitialize object

 DataInitialize := CreateComObject(CLSID_DataLinks) as IDataInitialize;

 // Convert AnsiString parameter to WideChar

 StringToWideChar (UDLFile, @wUDLFile, MAX_PATH);

 // Call method WriteStringToStorage with the default ConnectionString above. www.delphitop.com

 if Failed(DataInitialize.WriteStringToStorage(wUDLFile, SConnect, CREATE_NEW)) then

   raise Exception.Create('Can''t write UDL');

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

 WriteUDLFile('C:\Trash\test.udl');

end;