[[coso]]

Código Delphi [-]
 
procedure TForm1.ComPortRxChar(sender : TObject; count : integer);
var 
     str : string;
begin
        ComPort.ReadStr(Str, count);
        if (Str = #1) and CheckBox1.Checked then
        begin // << este begin
              Timer1.Interval := (VRNum.Value * 1000);
              Timer1.Enabled := true;
        end  // << no ;
        else
        if (str = #1) and not CheckBox1.Checked then
             Shape2.Brush.Color := clLime;
end;