void TApplication::MessageLoop()
{
    MSG Message;

    while ( TRUE )
    {
        if ( PeekMessage(&Message, 0, 0, 0, PM_REMOVE))
        {
            if ( Message.message = = WM_QUIT )
                break;

            if ( !ProcessAppMsg(&Message) )
            {
                TranslateMessage(&Message);
                DispatchMessage(&Message);
            }
        }
        else   // Keine Nachricht in der Schlange.
            IdleAction();
    }
    Status = Message.wParam;
}
