von cpp in Delphi übersetzen

[clownxx]

Hey Leute, kann mir mal jemand dieen code in delphi übersetzen und vielleicht etwas beschreiben? Ich habe leider keinen Plan von cpp und ich bräuchte es echt dringen! Der Code in cpp Lautet wie folgt:


do
{
while (PeekMessage(&Msg, 0, 0, 0, PM_REMOVE))
if (Msg.message != WM_QUIT)
{
TranslateMessage(&Msg);
DispatchMessage(&Msg);
};
WaitMessage();
}
while (TRUE); //mit control c beenden


ein kumpel von mir hat mir ihn wie folgt übersetzt:

Delphi-Quellcode:

repeat
      while (peekmessage(msg,0,0,0,PM_REMOVE))  do
       if (msg.message <> WM_QUIT) then
         begin
           translatemessage(msg);
           dispatchmessage(msg);
         end;
         waitmessage();
until (a=1);

nun 1) die Frage, ob das so stimmt und 2) was bedeutet das genau? Kann mir jemand helfen?? Vielen Dank