Esto es lo que tengo hecho.
Código Delphi
[-]
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
if not ComPort.Connected then
ComPort.Open;
comport.WriteStr(#2#0);
end;
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
ComPort.ReadStr(Str, Count);
if length(Str)>= 8 then
ShowMessage('OK')
else if Str = #1 then
ComPort.WriteStr(#2#2)
else
ShowMessage('No puede comunicar');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not ComPort.Connected then
ComPort.Open;
comport.WriteStr(#4#1#0#1);
end;
end.
Todo esta bien hasta que tengo que comparar otra vez el #1.
Un Saludo.