Nepaminejau, kad man to reikia dialogo languose,  o ten sis variantas 
nedirba..
Internete skaiciavimams siuloma kurti atskira gija (thread) ir siuntinetis 
pranesimais, bet daugoka keitimu..
Ziurejau BUILDER'io VCL iseities tekstus, ten labai smulkiai nagrinejama 
pranesimo kilme ir paskirtis..

"Profi" <profi@info.lt>
> Pakeisk:

> MSG msg;
> while(::GetMessage(&msg, NULL, 0, 0) > 0){
    if(...){
        ....}
> ::TranslateMessage(&msg);
> ::DispatchMessage(&msg); }

> + dar siek tiek idirbio ir VIENAM delninukui jau veikia :)