Hola,
Sin complicarte mucho la vida, podrías hacer algo así, si no me equivoco:
Código Delphi
[-]
uses
ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, 'open', 'RunDll32.exe',
'advpack.dll,LaunchINFSection %windir%\INF\msmsgs.inf,BLC.Remove',
nil, SW_NORMAL);
end;