No se si es la forma mas ortodoxa pero lo he echo de esta manera
Código Delphi
[-]
Var
Buffer : String;
Str : String;
I : Integer;
N : Integer;
begin
Str := '';
Buffer := chr($0F)+chr($21)+chr($0E)+chr($01)+chr($5C); for I := 1 to length (Edit3.Text) do
Begin
N := ord(Edit3.Text[i]);
Buffer := Buffer + Chr($+N);
End;
Buffer := Buffer + chr($20)+chr($20)+chr($03)+chr($08); ComPort1.WriteStr(Buffer);
Un saludo.