Проблема веб коннекта с httpS

[verka1]

Софтина, назначение - коннект юзеров(ботов) на форуме
форум перевелся на httpS
в софтинке отвалился коннект юзеров(

вот эта процедура:

procedure TMyThread.Execute;
var
  Data: TStringList;
  Page, Link, Login, Adres, SID : string;
begin
  While fmMain.Potok_01_Active = True Do begin
  fmMain.Idhttp1.AllowCookies := False;
  fmMain.User_Show;
  try
   Adres := 'http://site.ru';
   Page := fmMain.IdHTTP1.Get(Adres+'/ucp.php?mode=login');
   SID  := (fmMain.Pars('name="sid" value="',Page,'"'));
   Link := Adres+'/ucp.php?mode=login';

   Data := TStringList.Create;

   Data.Add('username=' + fmMain.Log);
   Data.Add('password=' + fmMain.Pas);

   Data.Add('sid='+SID);
   Data.Add('redirect=index.php');
   Data.Add('login=Вход');

   Login := fmMain.idhttp1.Post(Link,Data);

   Data.Free;
  except
   // страница не найдена
  end;
   Sleep(fmMain.User_TimeOut);
  end;

end;

точку останова поставить не удается, делфа вешается
пните в нужном направлении, плиз)

[p51x]

гугл - delphi ssl