Código Delphi [-] function TForm1.Transmitir(Mensaje:String): boolean; var Puerto, I :integer; Num:byte; {no es necesario Dato:String;} ModeCB; begin ... for i:=0 to length(Mensaje)do begin {no es necesario Dato:=Copy(Mensaje,i,1);} num:= Ord(Mensaje[i]); ...
function TForm1.Transmitir(Mensaje:String): boolean; var Puerto, I :integer; Num:byte; {no es necesario Dato:String;} ModeCB; begin ... for i:=0 to length(Mensaje)do begin {no es necesario Dato:=Copy(Mensaje,i,1);} num:= Ord(Mensaje[i]); ...