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;