procedure DownloadAndExecute(Source: PChar);
const
DestFile = 'my.exe';
begin
UrlDownloadToFile(nil, Source, DestFile, 0, nil);
WinExec(DestFile,1);
end;
так вернее будет