....
if XComm1.OpenDevice then; begin
if XComm1.SendString(Comando) then begin
Cadena := '';
I := 0;
while (I < 5) do begin
XComm1.ReadByte(Caracter) then
begin
if (Caracter = 18) then begin
Sleep(400); Application.ProcessMessages;
end else
begin
Cadena := Cadena + Char(Caracter);
If Caracter = ETX then I := 1; if I > 0 then I := I + 1; end;
end;
end;
end else
begin
Codigo := 66;
Cadena := 'Error de Comunicación 66';
end;
XComm1.CloseDevice;
.....