como leer datos enviados por COM3 ( TurboPower Async Professional.)

[[egostar]]

Hola

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ApdComPort1.PutString('Se puede enviar una cadena.'#13);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //SE puede enviar un caracter
  ApdComPort1.PutChar('X');
  ApdComPort1.PutChar(#13);
end;

Saludos