procedure TForm1.GREEK_BtnClick(Sender: TObject);
var S : widestring; //用string会导致信息丢失, TNTMemo1会出现部分？
begin
S := IdHTTP.Get('http://www.gnto.gr/');
S := UTF8Decode(S); //http://www.gnto.gr/利用了UTF-8编码，必须要这句话才行！
Memo1.Lines.Text := S; //有一些?
TNTMemo1.Lines.Text := S; //完全显示正确

end;