begin
if code.Text = inttostr(sayi*25+9) then
  begin
  Application.MessageBox('Program lisansı Alındı', 'Tebrikler!', MB_OK );
  end
  else
  begin
  Application.MessageBox('Program lisansı Alınamadı Hata: Yanlış Kod', 'Hata!', MB_OK or MB_ICONERROR)
  end
end;

begin
if code.Text = inttostr(sayi*25+9) then
  begin
  //buraya lisans alınca çalışacak olan kod
  end
  else
  begin
  //buraya lisans almayınca(hata) calışacak olan kod
  end
end;