Не работает Get запрос

[RealSHELS]

Точнее работает, но только на моем компьютере, и ноуте.
Комп Win7x64
Ноут WinXPx32

Пишу на Embarcadero RAD Studio XE3.

function get_data_privat:string;
var
  s:TStringStream;
begin
  try
    s:=TStringStream.Create;
    try
      form1.IdHTTP1.Get('https://api.privatbank.ua/p24api/pubinfo?exchange&coursid=5',s);
      result:=s.DataString
    except
      result:='Error';
    end;
  finally
    s.Free;
  end;
end;

Вот этот код возвращает ошибку.
Тоесть

s:=get_data_privat;
 if s='Error' then
   begin
     showmessage('Error Privat');
     exit;
   end;

Всем кроме меня показывает это сообщение. Но у меня тоже это показывает если нету доступа к интернету, тоесть когда роутер отключен.
В чем прикол?
Может нужно сделать какие-то настройки в компоненте idhttp?
Также выложую прогу для всегообщего обсуждения-тестирования. Если у Вас все нормально запустилось, просьба подвигать ифнрмациаонные плитки на форме. Может найдете какой-то баг.

И да, вопрос не в тему, но к делу. Почему приложения с парой сотней строчек занимает 18,5 мб?

[Delphi_ProGer]

А библиотеки для работы с ssl на других компах есть?

P.S. Можешь показать код этих перемещаючих панелек? Понравились

[RealSHELS]

кстати да, точно, спасибо что сказал, я не сообразил.

код перемещения достаточно запутан.

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 buf:timage;
begin
  move:=true;
  x0:=x;
  y0:=y;
  buf:=(sender as timage);
  xc:=buf.Left+50;
  buf.BringToFront;
end;

procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
 buf:timage;
 index,b:integer;
 i:timgmove;
begin
  if move then
   begin
     buf:=(sender as timage);
     if (buf.Top+buf.Height<0) or (buf.Left+buf.Width<0) or (buf.Top>form1.Height) or (buf.Left>form1.Width) then exit;
     buf.Left:=buf.Left+x-x0;
     buf.Top:=buf.Top+y-y0;
     if (buf.Left+50)-xc<-103 then
      begin
        index:=buf.Tag mod 100;
        if index=0 then exit;
        b:=masimg[index-1].Tag div 100;
        masimg[index-1].Tag:=b*100+index;
        b:=masimg[index].tag div 100;
        masimg[index].Tag:=b*100+index-1;
        masimg[index]:=masimg[index-1];
        masimg[index-1]:=buf;
        xc:=(index-1)*100+8+3*(index-1)+50;
        i:=timgmove.create(masimg[index],form1);
      end;
      if (buf.Left+50)-xc>103 then
      begin
        index:=buf.Tag mod 100;
        if index=length(masimg)-1 then exit;
        b:=masimg[index+1].Tag div 100;
        masimg[index+1].Tag:=b*100+index;
        b:=masimg[index].tag div 100;
        masimg[index].Tag:=b*100+index+1;
        masimg[index]:=masimg[index+1];
        masimg[index+1]:=buf;
        xc:=(index+1)*100+8+3*(index+1)+50;
        i:=timgmove.create(masimg[index],form1);
      end;
   end;
end;

procedure TForm1.MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 i:timgmove;
begin
  move:=false;
  img_move:=(sender as timage);
  i:=timgmove.create(img_move,form1);
end;

вот для событий картинок, тоесть для всех картинок эти процедуры. одно на всех. еще отдельно выделил в клас переезд картинки у нужное место, там по алгоритму брезенхейма в таймере.

procedure Timgmove.timer(sender: tobject);

Procedure Swap(var x,y:Integer);
var t:Integer;
begin
  t:=x;
  x:=y;
  y:=t;
end;

function Sign(const a:integer):integer;
begin
  if a>0 then result:=1;
  if a=0 then result:=0;
  if a<0 then result:=-1;
end;

var
 dx,dy,sx,sy,x2,y2,x,y,e,i,count:integer;
 check:boolean;
begin
  x2:=img.Tag mod 100;
  x2:=x2*100+8+3*x2;
  y2:=6;
  dx:=abs(img.left-x2);
  dy:=abs(img.top-y2);
  sx:=Sign(x2-img.Left);
  sy:=Sign(y2-img.Top);
  x:=img.Left;
  y:=img.Top;
  check:=false;
  if dy>dx then
    begin
      Swap(dx,dy);
      check:=true;
    end;
  e:= 2*dy - dx;
  if dx>3 then count:=round(sqrt(dx)/2) else count:=dx;
  for i := 1 to count do
  begin
    if e>=0 then
      begin
        if check then inc(x,sx) else inc(y,sy);
        dec(e,2*dx);
      end;
    if check then inc(y,sy) else inc(x,sx);
    inc(e,2*dy);
  end;
  img.Left:=x;
  img.Top:=y;
  if (img.Top=y2) and (img.left=x2) then
   begin
     t.Free;
     self.Free;
   end;
end;

если интересует могу скинуть в личку, чтобы тут не флудить.
по поводу дивов, модов, просьба не материть. просто нужно было в одном tag сохранить два числа от 1..50. чтобы не создавать отдельный клас(тип) только из картинки и двух чисел.