[Byrger]

А как сделать задержку без delay а то с ним скрипт виснет...
скрипт такой...

const
r1='2B 7E 75 74 6F 6A 71 32 00 6C 00 61 00 63 00 6B FB 27 75 11 6F 0B 71 04 00 68 00 00 00';
r2='2B 7E 75 74 6F 6A 71 32 00 6C 00 61 00 63 00 6B FB 27 75 11 6F 0B 71 04 00 68 00 00 00';
r3='ляляляля';
r4='ляляляля';
r5='ляляляля';
begin


  buf:=HStr(r1);
    SendToServer;
          delay(2000);
  buf:=HStr(r2);
    SendToServer;
           delay(2000);
buf:=HStr(r3);
    SendToServer;
            delay(2000);
     buf:=HStr(r4);
    SendToServer;
        delay(2000);
buf:=HStr(r5);
SendToServer;
           delay(2000);

         end.