procedure TForm1.Button1Click(Sender: TObject);
var
text: string;
begin
idHttp1.Port := 80; {Ïîðò}
text:=idHTTP1.Get('http://www.nmarket.ru/program/delphi/lessons-2/les-12.php');
Memo1.Lines.Add(text);
end;