Cuantos ComPortRxChar?

[JoseFco]

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; count:integer);
begin      
ComPort.ReadStr(Str, Count);    
if Str = 'DELPHI' then      
ShowMessage('Bienvenido')   
else if Str = 01 then   // <---aqui no esta comparando.   
  comport.WriteStr(#2#2) 
  else if Str = 2 then     
 UnProcedimiento   
else if Str = 3 then     
 OtroProcedimiento   
else    
  LoQueSea;
end;

Todo funciona bien hasta donde lo tengo comentado.
Me da un error si el 01 no lo pongo asi '01'
Un Saludo.