procedure название(DllName: PAnsichar);
var BytesWrite :cardinal; ParamAddr : pointer; pThreadStart : pointer; Hdl : cardinal; hThread : cardinal; hRemoteThread : Cardinal;
WriteProcessMemory(Hdl, ParamAddr, PAnsichar(DllName), Length(DllName), BytesWrite);
Parameters (Void type, pointer, pointer, void type, void type)