Не выполняется Get запрос

procedure TForm1.FormCreate(Sender: TObject);
var keyfile:string;
begin
  dtyp:=GetDriveType('c:/');
  dtyp := DRIVE_REMOVABLE;
  GetVolumeInformation('c:/',Buffer,sizeof(Buffer),@SerialNum,oa,ob,nil,0);
 
    Try
      IdHTTP1.Get('http://yandex.ru');
      keyfile:=IdHTTP1.Get('https://www.dropbox.com/s/wztlvwjgs8au7a4/'+IntToStr(SerialNum)+'.lic');
 
    if Crypt(keyfile, false) = IntToStr(SerialNum) then
      begin
         form2.Show;
      end else
      begin
        Application.Title := 'Oh..';
        showmessage('Нет лицензии!');
      end;
 Except
   Application.Title := 'Oh..';
   showmessage('Ошибка!');
   form1.Caption:='Oh..';
End;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, Vcl.StdCtrls, Vcl.Imaging.jpeg,
  Vcl.ExtCtrls, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
  IdSMTP, idIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL,
  IdMessage;
 
type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    IdMessage1: TIdMessage;
    IdSMTP1: TIdSMTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  SerialNum,dtyp:Dword;
  oa,ob:DWORD;
  Buffer,disk: array [0..255] of char;
  a,b:DWORD;
  k: string;
  SMTP : TIdSMTP;
  msg : TIdMessage;
  IdHTTP1: TIdHTTP;
  SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
  Edit1: TEdit;
  Edit2: TEdit;
  keyfile:string;
 
implementation
 
{$R *.dfm}
uses Unit2;
 
function Crypt(s:string;code:boolean):string;
const
   Pas=10;
var
  i,Delta,Res:integer;
begin
  Result:='';
  for i:=1 to Length(s) do
  begin
    Delta:=((i xor Pas) mod (256-32));
    if code then
      Res:=((ord(s[i])+Delta) mod (256-32))+32
    else
    begin
      Res:=ord(s[i])-Delta-32;
      if Res<32 then
        Res:=Res+256-32;
    end;
      Result:=Result+chr(Res);
  end;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
dtyp:=GetDriveType('c:/');
dtyp := DRIVE_REMOVABLE;
GetVolumeInformation('c:/',Buffer,sizeof(Buffer),@SerialNum,oa,ob,nil,0);
IdHTTP1:=TIdHTTP.Create(nil);
SSLOpen:=TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
SSLOpen.SSLOptions.Method := sslvSSLv23;
IdHTTP1.IOHandler:=SSLOpen;
 
Try
 IdHTTP1.Get('http://www.consultant.ru/');
 keyfile:=IdHTTP1.Get('http://delphilic.ucoz.net/'+IntToStr(SerialNum)+'.lic');
 
 if Crypt(keyfile, false) = IntToStr(SerialNum) then
   begin
           Application.Title := 'Oh yeah..';
           showmessage('Лицензия есть! Нажмите продолжить.');
   end else
         begin
           Application.Title := 'Oh no..';
           showmessage('Нет лицензии!');
         end;
Except
Application.Title := 'Oh no..';
showmessage('Нет лицензии!');
End;
 
 
begin
dtyp:=GetDriveType('c:/');
dtyp := DRIVE_REMOVABLE;
GetVolumeInformation('c:/',Buffer,sizeof(Buffer),@SerialNum,a,b,nil,0);
k:=IntToStr(SerialNum);
end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
if Edit1.Text = 'Введите ник' then
begin
  Application.Title := 'Oh no..';
  ShowMessage('Введите свой ник!');
end else
 
begin
Application.Title := 'Oh no..';
ShowMessage ('Выдача лицензии займет меньше минуты');
Button1.Enabled:=false;
Sleep(7000);
Button1.Enabled:=true;
 
SMTP := TIdSMTP.Create(Application);
SMTP.Host := 'smtp.yandex.ru';
SMTP.Port := 465;
SMTP.AuthType := satDefault;
SMTP.Username := 'почта.программы@yandex.ru';
SMTP.Password := 'пароль.от.почты.программы';
 
 
SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
SSLOpen.Host := SMTP.Host;
SSLOpen.Port := SMTP.Port;
SSLOpen.DefaultPort := 0;
SSLOpen.SSLOptions.Method := sslvSSLv23;
SSLOpen.SSLOptions.Mode := sslmUnassigned;
 
SMTP.IOHandler := SSLOpen;
SMTP.UseTLS := utUseImplicitTLS;
 
msg := TIdMessage.Create(Application);
msg.CharSet := 'Windows-1251';
msg.Subject := 'Лицензия';
msg.Body.Text :=Edit1.Text;
msg.Body.Add(k);
msg.From.Address := 'почта.программы@yandex.ru';
msg.From.Name := 'Anonymous';
msg.Recipients.EMailAddresses :='куда.отправить@yandex.ru';
msg.IsEncoded:=True;
SMTP.Connect;
  if SMTP.Connected then
    begin
      SMTP.Send(msg);
    end else
    begin
  Application.Title := 'Oh no..';
  ShowMessage ('Не удалось получить лицензию');
  SMTP.Disconnect();
  SMTP.Free;
  msg.Free;
    end;
end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
dtyp:=GetDriveType('c:/');
dtyp := DRIVE_REMOVABLE;
GetVolumeInformation('c:/',Buffer,sizeof(Buffer),@SerialNum,oa,ob,nil,0);
IdHTTP1:=TIdHTTP.Create(nil);
SSLOpen:=TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
SSLOpen.SSLOptions.Method := sslvSSLv23;
IdHTTP1.IOHandler:=SSLOpen;
 
Try
 IdHTTP1.Get('http://www.consultant.ru/');
 keyfile:=IdHTTP1.Get('http://delphilic.ucoz.net/'+IntToStr(SerialNum)+'.lic');
 
 if Crypt(keyfile, false) = IntToStr(SerialNum) then
   begin
           Application.Title := 'Oh yeah..';
           showmessage('Лицензия есть!');
   end else
         begin
           Application.Title := 'Oh no..';
           showmessage('Нет лицензии!');
         end;
Except
Application.Title := 'Oh no..';
showmessage('Нет лицензии!');
End;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
dtyp:=GetDriveType('c:/');
dtyp := DRIVE_REMOVABLE;
GetVolumeInformation('c:/',Buffer,sizeof(Buffer),@SerialNum,oa,ob,nil,0);
IdHTTP1:=TIdHTTP.Create(nil);
SSLOpen:=TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
SSLOpen.SSLOptions.Method := sslvSSLv23;
IdHTTP1.IOHandler:=SSLOpen;
 
Try
 IdHTTP1.Get('http://www.consultant.ru/');
 keyfile:=IdHTTP1.Get('http://delphilic.ucoz.net/'+IntToStr(SerialNum)+'.lic');
 
 if Crypt(keyfile, false) = IntToStr(SerialNum) then
   begin
       Form2.Show;
       Form1.Hide;
   end else
         begin
           Application.Title := 'Oh no..';
           showmessage('Нет лицензии!');
         end;
Finally
End;
end;
 
end.