Delphi ödevim yardm

Arkadaşlar öncelikle merhaba herkese..
konum şu stok değeri manuel girilmeyecek ve değeri 1000 olacak
ürün satarken stoktan satılacak ve alınırkende ilk baş adet yazan yere yazıp stok'a eklettirecegiz kaç adet yazıyorsak..
ama stok sayısı asla 1000'i geçmeyecek.. arkadaşlar lütfen artık sıkıldım bir türlü işin içinden çıkamadım.. yardım eder misiniz ?

[/url][/IMG]

 

Bir değişken bulundur stoktaki sayıyı değişkende tut. sonra al butonuna bastıgında bir if devreye girsin adetteki sayı+ stok>1000 'se işlemi yapmasın else şartınada işlemi yaptıma komutu yaz Delphi bilmediğim için genel mantıgını yazdım

vb.net kodunu yazayım belki bi fikir olusur

'Alma butonuna basıldığında
stok=textbox1.text
adet=textbox2.text
if stok+adet>1000 then
msgbox("Stoğunuz 1000 den fazla olamaz")
else
stok=stok+adet
end if

java kodu(Javada yeniyim)

int stok;
int adet;
int toplam;

//Alma butonuna basıldığında

toplam=stok+adet;
if(toplam>1000){
system.out.println("stokdaki mal 1000'i geçemez");
}else
{
toplam=0
stok=stok+adet;
}

 

eyvallah hocam birşeyler elbette oluştu bugün ev boyanıyor yarın uğraşacagım bununla gerçekten teşekkürler... Tıkandığım yerlerde dönerim size keşke başka kişilerde fikirlerini yazsalar...