semiromid, у тебя неправильно оформлен оператор IF.
Надо так:
delphi Код:
if (ReadD(18) = mana1) then
begin
buf:=hstr('49 4F 04 20 00 10 04 3D 04 42 04 11 04 30 04 44 04 00 00 03 00 00 00')
SendToServer;
end;
или так
delphi Код:
if (ReadD(18) = mana1) then
begin
buf:=hstr('49 4F 04 20 00 10 04 3D 04 42 04 11 04 30 04 44 04 00 00 03 00 00 00')
SendToServer;
end
else
begin
buf:=hstr('');
SendToServer;
end;