procedure TfMain.Timer1Timer(Sender: TObject);
Var 
  FHandle: Thandle;
  res: dword;
  ovr: tOverlapped;
  Buf : word;
  size: dword;
  a : integer;
begin
{открытие порта}

FHandle := CreateFile(
  PChar('COM1'),
  GENERIC_READ,
   0 ,
  nil,
  OPEN_EXISTING,
  FILE_FLAG_OVERLAPPED,
   0 );

{чтение из порта}

size :=  8 ;
fillChar(buf, size,  0 );
fillChar(ovr, sizeOf(ovr),  0 );
res :=  0 ;
windows.ReadFile(FHandle, buf, size, res, @ovr);
edVes.text := ????????????????????;


{закрытие порта}
CloseHandle(FHandle);

end;

BOOL ReadFile(

    HANDLE hFile,	// handle of file to read 
    LPVOID lpBuffer,	// address of buffer that receives data  
    DWORD nNumberOfBytesToRead,	// number of bytes to read 
    LPDWORD lpNumberOfBytesRead,	// address of number of bytes read 
    LPOVERLAPPED lpOverlapped 	// address of structure for data 
   );