procedure TForm1.Button4Click(Sender: TObject);
var res: string;
begin
res := http.Get('http://www.odnoklassniki.ru');
text.Lines.Add(Utf8ToAnsi(res));
end;