Авторизация на сайте

procedure TForm1.sBitBtn1Click(Sender: TObject);
// Авторизация по сиду и вход в бортжурнал
var s,s1:string;
Http  : TidHttp;
Data  : TStringList;
begin
HTTP:=TIdHTTP.Create(nil);
HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
Http := TIdHTTP.Create(Self);
S:=idhttp1.get('http://'+sedit2.Text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid='+sedit1.Text);

var rss: WideString;
begin
IdHTTP1.Request.Referer:='сайт'; //Реферная ссылка(если понадобится)
rss:=IdHTTP1.Get('адрес страници');
Delete(rss,1,pos('<table>',rss)-1);//Захват от тега <table> до
Delete(rss,pos('</table>',rss),length(rss));//Закрытого тега </table>

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var  
  sl: TStringList;
  ms: TMemoryStream;
begin
  WebBrowser.Navigate('about:blank');  
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
   Application.ProcessMessages;
  if Assigned(WebBrowser.Document) then
  begin
    sl := TStringList.Create;
    try
      ms := TMemoryStream.Create;
      try
        sl.Text := HTMLCode;
        sl.SaveToStream(ms);
        ms.Seek(0, 0);
        (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
      finally
        ms.Free;
      end;
    finally
      sl.Free;
    end;
  end;
end;

WB_LoadHTML(WebBrowser1,rss);