problem with srial events

i've got problem with serial events and with waitcommevent.i want to only de
tect changes on DSR line.So to tis line I connect 5V amoncg gnd line,and aft
erward i conect DSR line to gnd line. So for me this
event.For non-overlapped operations waitcommevent blocks and don't wantu fin
ish even when i'm changing state of DSR line.For overlapped operations WaitF
orSingleObcject finish with timeout code.below you will find my program, can
 you point me what's wrong with my code?
I work in Borland Builder.thanks for answers.

example program is in attached file.sory

i don't know why but attaching code didn't work out.i'll try one more time