WinInet 问题

Question

GetWebPage('http://www.023y.com')
只能的一部分网页代码，请教高手procedure TForm1.btn1Click(Sender: TObject);
var
  code:string;
begin
  code := GetWebPage('http://www.023y.com');
  mmo1.Text := code ;
  ShowMessage(IntToStr(Length(code)));
end;function  TForm1.GetWebPage(const Url: string):string;
var
  Session,
  HttpFile:HINTERNET;
  szSizeBuffer:Pointer;
  dwLengthSizeBuffer:DWord;
  dwReserved:DWord;
  dwFileSize:DWord;
  dwBytesRead:DWord;
  Contents:PChar;
begin
  application.ProcessMessages;  Session:=InternetOpen('',0,niL,niL,0);
  HttpFile:=InternetOpenUrl(Session,PChar(url),niL,0,0,0);
  dwLengthSizeBuffer:=1024;
  HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);
  GetMem(Contents,dwFileSize);
  //ShowMessage(IntToStr(dwFileSize));
  InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);
  InternetCloseHandle(HttpFile);
  InternetCloseHandle(Session);
  Result:=StrPas(Contents);
  FreeMem(Contents);
end;

Answer 1

GetWebPage('http://www.023y.com') 
只能的一部分网页代码，请教高手 得不到完整的网页源码，，只能得到一部分，请教这个问题，为什么，怎么解决，
谢谢。