var
pConnectMsg : PDPL_MESSAGE_CONNECT;
pSettings : PDPL_Connection_Settings;
begin
case dwMessageType of
DPL_MSGID_CONNECT:
begin //嵌套语句要加上“begin”和“end”
pConnectMsg := PDPL_MESSAGE_CONNECT(pMessage);
pSettings := pConnectMsg.pdplConnectionSettings;//在这里
g_hLobbyClient := pConnectMsg.hConnectId;//这里也是
end;
.............