Imperial2008,
Вообще твой код равен этому должен быть:
DELPHI Код:
begin
if fromclient and (pck=#$34#$06#$00#$00#$00) then
begin
buf:=hstr('D0 44 00 F4 CE 11 10 06 11 19 10 35 10 19 10 19 00 00 00');
SendToServer;
end;
if fromclient and (pck=#$34#$05#$00#$00#$00) then
begin
buf:=hstr('D0 26 00 F4 CE 11 10');
SendToServer;
end;
end.
Хотя могу ошибаться, просто не понимаю какой смысл присваивать переменной разные значения, когда отправляется только конечное?