Считывание данных с com порта и вывод их на экран

procedure TForm1.Button1Click(Sender: TObject);
begin
hPort := CreateFile('COM3', GENERIC_READ or GENERIC_WRITE, 0, nil,  //инициализация порта
OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
  if hPort = INVALID_HANDLE_VALUE then
    raise Exception.Create('Error opening port');
        if not GetCommState(hPort, Dcb) then  //настройка порта
          raise Exception.Create('Error setting port state');
 
            Dcb.BaudRate := CBR_9600;
            Dcb.Parity := NOPARITY;
            Dcb.ByteSize := 8;
            Dcb.StopBits := ONESTOPBIT;
 
if not SetCommState(hPort, Dcb) then //очистка очереди порта
    raise Exception.Create('Error setting port state');
if not PurgeComm(hPort, PURGE_TXCLEAR or PURGE_RXCLEAR) then
    raise Exception.Create('Error purging port');
//if hPort<>0 then Label1.Caption:='Порт готов к работе' else
 //Label1.Caption:= 'Что то пошло не так!!!';
if not SetCommMask(hPort, EV_RXCHAR) then  //чтение данных с порта в буффер
raise Exception.Create('Error setting port mask');
    OverRead.hEvent := CreateEvent(nil, True, False, nil);
if OverRead.hEvent = Null then
raise Exception.Create('Error creating read event');
 
FreeOnTerminate := True;
 
while not Terminated do
begin
if not WaitCommEvent(hPort, dwMask, @OverRead) then
begin
if GetLastError = ERROR_IO_PENDING then
WaitForSingleObject(OverRead.hEvent, INFINITE)
else
raise Exception.Create('Error waiting port event');
end;
 
if not ClearCommError(hPort, dwError, @ComStat) then
raise Exception.Create('Error clearing port');
 
dwRead := ComStat.cbInQue;
 
if dwRead > 0 then
begin
if not ReadFile(hPort, Buf, dwRead, dwRead, @OverRead) then
raise Exception.Create('Error reading port');
// В Buf находятся прочитанные байты
// Далее идет обработка принятых байтов
end;
end; {while}
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
for i := 1 to Length(Buf)-1 do
Memo1.Lines.Add(InttoStr(Buf[i]));
end;

CloseHandle(hPort);

hPort := CreateFile('COM3', GENERIC_READ or GENERIC_WRITE, 0, nil,  //инициализация порта
           OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
  try
    //тут остальной код
  finally
    CloseHandle(hPort);
  end;