bind() in console application

[Luckie]

Ähm, bekommen Konsolenanwendungen überhaupt Windows Nachrichten?

Delphi-Quellcode:

program Project5;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

var
  Msg: TMsg;
  bRet: Integer;

begin
  repeat
    writeln('Laeuft1');
    bRet := Integer(GetMessage(Msg, 0, 0, 0));

    if bRet = -1 then
    begin
      writeln('Error');
      Break;
    end
    else
    begin
      writeln(IntToStr(Msg.message));
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
    writeln('Laeuft2');
  until bRet = 0;
end.

Es wird mir nur das Laeuft1 ausgegeben.