Shizo,
что-то в этом роде.
Код:
var
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=3000;
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
buf:=hstr('ХХ ХХ ХХ ХХ');
SendToServer;
buf:=hstr('Х1 Х1 Х1 Х1');
SendToServer;
end;
begin
if FromClient and (ConnectName=Name) and (pck = HStr('5A 06 00 00 00')) then begin
timer.enabled:=false;
end;
end.