procedure THICOM._work_doRead;
var
  Received: DWORD;
  Len:cardinal;
  Buffer:string;
begin
  len := ToInteger(_Data);
  SetLength(Buffer,256);
  if hFile <> INVALID_HANDLE_VALUE then
   if ReadFile(hFile, Buffer[1], Len, Received, nil) then
    begin
      SetLength(Buffer,Received);
      _hi_OnEvent(_event_onRead,Buffer)
    end
   else _hi_OnEvent(_event_onRead,string('));
end;