[[egostar]]

Empezado por Franciscogc1988

Buenas egostar, gracias x tu aporte....

Hola, intenta con esto:

Código Delphi [-]
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort1.ReadStr(Str, Count);  
  Memo1.Text := Memo1.Text + Str;
end;

Saludos