Синтаксис ругается)))

[supernewbie]

Procedure OnTimer01(Sender : TObject) ;
begin
case TimerCyrcle01 of
1: begin       buf := hstr('04 76 19 10 48') ;
               SendToServerEx(name) ;
               TimerCyrcle01:=2;
   end;
2: begin       buf := hstr('04 76 19 10 48') ;
               SendToServerEx(name) ;
               TimerCyrcle01:=3;
   end;
3: begin       buf := hstr('21 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 33 00 30 00 33 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 35 00 37 00 37 00 00 00') ;
               SendToServerEx(name) ;
               TimerCyrcle01:=1;
               Timer01.Enabled := False;
   end;
   end;
end;

Дак ты проверяешь, если 1: то отправлять такой пакет, если 2: то отправлять такой пакет, если 3: то отправлять такой пакет.
А тут ты делаешь переменную равную 1, таймер проверяет, переменная равна 1... Отправляет пакет и делает её равной 2. Потом снова палит, переменная равна 2, отпраляет пакет и делает её равной 3 и так по кругу) короче хреновый из меня учитель)
я лично не вижу различей вот в этом коде

Procedure OnTimer01(Sender : TObject) ;
begin
if TimerCyrcle01=1 then
begin
buf := hstr('04 76 19 10 48') ;
SendToServerEx(name) ;
TimerCyrcle01:=2;
exit;
end;
if TimerCyrcle01=2 then
begin       
buf := hstr('04 76 19 10 48') ;              
SendToServerEx(name) ;               
TimerCyrcle01:=3;
exit;
end;
if TimerCyrcle01=3 then
begin       
buf := hstr('21 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 33 00 30 00 33 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 35 00 37 00 37 00 00 00') ;
SendToServerEx(name) ;               
TimerCyrcle01:=1;               
Timer01.Enabled := False;
exit;
end;
end;

разве что case удобнее