Прога не работает

[RockForr]

Подскажите пожалуйста, есть программа для включения/выключения светоиодов на модуле подключенном к сом-порту, процедуру для открытия порта я написал, не могу написать процедуру для кнопок, она не включает и не выключает светодиоды.

procedure TForm4.Button1Click(Sender: TObject);
var
line:  Shortint;
value: Shortint;
valid: Boolean;
buffer: string;
CRbyte: Shortint;
LFbyte: Shortint;
NumberWritten : DWORD;
begin
line  := StrToInt(Edit1.Text);
value := StrToInt(Edit2.Text);
valid := TRUE;
if (line = 1) then
begin
valid := TRUE;
end;
if (value = 1) then
begin
MessageDlg('Свет в холле включен!', mtInformation, [mbOK], 0);
valid := TRUE;
end;
if (valid = TRUE) then
begin
Image1.Visible:=true;
Image2.Visible:=false;
CRbyte := 13; // HEX 0x0D
LFbyte := 10; // HEX 0x0A
buffer := '$KE,WR,' + Edit1.Text + ',' + Edit2.Text
+ Char(CRbyte) + Char(LFbyte);
WriteFile(CommHandle, PChar(buffer)^, Length(buffer), NumberWritten, nil);
form6.Memo1.Lines.Add(TimeTostr(Now)+ '  ' +DateTostr(Now)+'  -  '+'Свет в холле включен');
end;

end;

Почему не работает?

[Utkin]

А почему Вы вдруг решили что не работает? Попробуйте побаловаться со скоростью передачи данных.

[RockForr]

Подскажите как? А то на модуле вообще лампочки не загораются.

[SERG1980]

1.Я бы вам посоветовал использовать готовый компонент сом порта
2. Нужно знать команды которыми управляется ваш модуль (подсчёт CRC если он есть)
3. Ну и настроить порт (должна быть одинаковая скорость передачи данных, биты паритета)

[RockForr]

Вот та самая программа, добавьте что-нибудь туда, главное чтобы работала

[RockForr]

Для чего нужны TCOMMTIMEOUTS и как правильно настроить под модуль