帮忙下把代码翻译成delphi
这是一段C++的代码，那位大神能帮翻译成完整的DELPHI代码。

C/C++ code

HWND hWnd = FindWindow(TEXT("ACG!"),0)CHAR cmd[] = "connect myserver.com:27015" // 命令 "connect myserver.com:27015" 便会在游戏控制台中执行COPYDATASTRUCT cpd;pd.dwData = 0;cpd.cbData = strlen(cmd);cpd.lpData = cmd;SendMessage(hWnd,WM_COPYDATA,(DWORD)0x12,(LPARAM)&cpd);

Delphi(Pascal) code

var  h:HWND;  cmd:string;  cpd : COPYDATASTRUCT;begin  h := FindWindow('ACG!',nil);  cmd := 'connect myserver.com:27015'; // 命令 "connect myserver.com:27015" 便会在游戏控制台中执行  cpd.dwData := 0;  cpd.cbData := Length(cmd);  cpd.lpData := PChar(cmd);  SendMessage(h,WM_COPYDATA,$12,Lparam(@cpd));end;