[Slipknot]

Lisans alınca veya alamayınca çalıştırmak istediğiniz kodları bitbtn1 in onclikine yazacaksınız
orjinali böyle;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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;

buda sizin düzenleyeceğiniz şekil;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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;

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.