Как отправить HTTP запрос

var
  mStream: TMemoryStream;
 
mStream := TMemoryStream.Create;
try
  idHttp := TIdHTTP.Create(nil);
  { тут следует "настроить" параметры idHTTP }
  { ... }
  try
    idHttp.Get(URL, mStream);
  finally
    idHttp.Free;
  end;
finally
  mStream.Free;
end;

Str := idHttp.Get(URL);

idHTTP.Response.ResponseText

procedure TForm1.Button1Click(Sender: TObject);
var
  LoginInfo: TStringList;
  Response: TStringStream;
begin
  try
    LoginInfo := TStringList.Create;
    Response := TStringStream.Create('');
    LoginInfo.Add('username=MyName');
    LoginInfo.Add('password=MyPass');
    IdHTTP1.Post('http://mywebsite.xxx/login.php',LoginInfo,Response);
    Showmessage(Response.DataString);
  finally
    begin
      Response.Free;
      LoginInfo.Free;
    end;
  end;
end;

uses IdMultipartFormData;
{ .... }
 
procedure TForm1.Button1Click(Sender: TObject);
var
  data: TIdMultiPartFormDataStream;
begin
  data := TIdMultiPartFormDataStream.Create;
  try
    // добавляем нужные параметры
    data.AddFormField('param1', 'value1');
    data.AddFormField('param2', 'value2');
    // для примера выводим в мемо все, что вернулось
    Memo1.Lines.Text := IdHTTP1.Post('http://localhost/script.php', data);
  finally
    data.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var p, a, b: integer;
ssilka,f: string;
info: array [0..9] of string;
begin
for p:=0 to 4 do
Begin
f:='http://love.wab.ru/';
ssilka:='http://love.wab.ru/contacts.php?id=5411696&ps=956753928';
info[p]:=Idhttp1.Get(ssilka);
memo1.Text:=Utf8ToAnsi(info[p]);
repeat
a:=pos('<a href="',info[p])+9;
b:=pos('">',info[p])-19;
listbox1.Items.Add(copy(info[p], a, b-a));
info[p]:=copy(info[p], a, b-a);
until (pos('<a href="',info[p])=0);
end;
end;
end.