Loi ket noi UART trong pic 18f4620

[diep9754@yahoo.com]

hi , minh co dang su dung Mikropascal
với mã nhu o duoi , vấn đề mình không thể truyền tín hiệu từ VDK tới MÁy tính mình không biết lỗi ở đâu ?
Xin nhờ trợ giúp :

program Soft_UART;
var uart_rd : byte;
begin
UART1_Init(9600);

while (TRUE) do                          // Endless loop
    begin
      if (UART1_Data_Ready() <> 0) then    // If data is received,
        begin
          uart_rd := UART1_Read();          // read the received data,
          delay_ms(500);
          UART1_Write(uart_rd);            // and send data via UART
        end;
    end;

end.
kế quả khi truyền nhân với Proteus (thông qua Com ảo) thì lại cho kết quả sai mình cũng đã thiết lập tất cả tốc độ baud 9600 vẫn ko cho kết quả đúng
mong sự giúp đỡ :-[