[JoseFco]

Veo que tienes Comport:

Aqui tienes un ejemplo:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if not ComPort.Connected then
 ComPort.Open; Comport.WriteStr(#17);
end;

esto manda un byte al serial port.

Un Saludo.