procedure TForm1.sButton3Click(Sender: TObject);
var
HTTP:TIdHTTP;
Response:TFileStream;
s,a,g:string;
Version:TStringList;
   
begin
sedit8.Text:=g; // программа генерирует серийный номер
HTTP:=TIdHTTP.Create(nil);
Version:=TStringList.Create;
  try
  s:=HTTP.Get('тут сайт откуда перем файл с ключами'); // файл с ключами
   if g=s  then // если серийный номер, выданный программой совпадает с тем, что указан в файле с ключами
    begin
    ShowMessage('Активация прошла успешно. Доступен весь фунеционал программы');
    sbutton5.Enabled:=true;
    end
   else
    begin
    ShowMessage('Ключ не действителен. Функционал программы недоступен');
      sbutton5.Enabled:=false;
   
    end;
  finally
  HTTP.Free;
  Version.Free;
  end;