Работа с датчиком

[RockForr]

Написал процедуру для модуля Ke-usb24a, на нем есть кнопочки, это процедура при нажатии на кнопку (как на мышке) должен переходить сигнал в программу и отобразиться картинка, что типа датчик сработал, у меня почему-то надо очень долго жать на кнопочку на модуле и на BUTTON, чтобы картинка поменялась.

procedure TForm2.Button20Click(Sender: TObject);
var
Line: Byte;
Value: Byte;
BinBuf: array[0..1023] of Char;
Buf: string;
CRbyte: Shortint;
LFbyte: Shortint;
NumberWritten : DWORD;
begin
CRbyte := 13; // HEX 0x0D
LFbyte := 10; // HEX 0x0A
Line := StrToInt(Form2.Edit3.Text);
Buf := '$KE,RD,' + Form2.Edit3.Text + Char(CRbyte) + Char(LFbyte);
WriteFile(CommHandle, PChar(Buf)^, Length(Buf), NumberWritten, nil);
ReadFile(CommHandle, BinBuf, 128, NumberWritten, nil);
Buf := Format('#RD,%.2d,', [Line]);
if(StrLComp(BinBuf, PChar(Buf), Length(Buf)) = 0) then
begin
Value := Byte(BinBuf[Length(Buf)]) - $30;
if(Value > 0) then
begin
Form2.Image19.Visible:=true;
Exit;
end;