那位朋友帮忙把C++译成pascal!(20分)

class
{
public:
void __fastcall WMQuitMessage(TMessage &msg);
void __fastcall WMQUERYQuitMessage(TMessage &msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_ENDSESSION,TMessage,WMQuitMessage);
MESSAGE_HANDLER(WM_QUERYENDSESSION,TMessage,WMQUERYQuitMessage);
END_MESSAGE_MAP(TForm)
};
然后
void __fastcall TFormXYZ::WMQuitMessage(TMessage &msg)
{Timer1->Enabled=false;
Application->Terminate();
msg.Result=0;
}
void __fastcall TFormXYZ::WMQUERYQuitMessage(TMessage &msg)
{
try{
NMPOP3->~TNMPOP3();
}catch(...){}
msg.Result=true;
}

class
{
public:
void __fastcall WMQuitMessage(TMessage &msg);
void __fastcall WMQUERYQuitMessage(TMessage &msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_ENDSESSION,TMessage,WMQuitMessage);
MESSAGE_HANDLER(WM_QUERYENDSESSION,TMessage,WMQUERYQuitMessage);
END_MESSAGE_MAP(TForm)
};
然后
void __fastcall TFormXYZ::WMQuitMessage(TMessage &msg)
{Timer1->Enabled=false;
Application->Terminate();
msg.Result=0;
}
void __fastcall TFormXYZ::WMQUERYQuitMessage(TMessage &msg)
{
try{
NMPOP3->~TNMPOP3();
}catch(...){}
msg.Result=true;
}

TFormXYZ=class(TForm)
....
public
procedure WMQuitMessage(var msg:TMessage);message WM_ENDSESSION;
procedure WMQUERYQuitMessage(var msg:TMessage);message WM_QUERYENDSESSION;
end;

imeplement
procedure TFormXYZ.WMQuitMessage(TMessage msg);
begin
Timer1.Enabled:=false;
Application.Terminate;
msg.Result:=0;
end;

procedure TFormXYZ.WMQUERYQuitMessage(var msg:TMessage);
begin
try
NMPOP3.free;
except
end;
msg.Result:=Ord(true);
end;

结