[guplen]

Case Должен заканчиваться end'ом.

Procedure OnTimer01(Sender : TObject) ;
begin
    case TimerCyrcle01 of
          1: begin       
                  buf := hstr('04 76 19 10 48') ;
                  SendToServerEx(name) ;
             end;
          2: begin       
                  buf := hstr('21 6D ... 00') ;
                  SendToServerEx(name) ;
             end;
          3: begin       
                  buf := hstr('21 6D ... 00') ;
                  SendToServerEx(name) ;
             end;
    end;
end;