Var
procedure TForm1.Button1Click(Sender: TObject);
Var
Data: TStringList;
begin
  idhttp1.HandleRedirects:=true;
IdHTTP1.get('http://barbars.ru/');
Data:=TStringList.Create;
    data.Add('login=edit2.text');
    data.Add('password='+ edit1.text);
IdHTTP1.Post('http://barbars.ru/login/wicket:interface/:1:loginForm::IFormSubmitListener::', Data);
Data.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.Add(idhttp1.get('http://barbars.ru/'))
end;

end.