Delphi Can

ttime:=StrToInt(edtTime.Text);

if (not(ttime=15)or not(ttime=30)or not(ttime=45)or not(ttime=60) ) then begin ShowMessage('15-30-45-60 dk girmelisiniz'); exit; end;
if ((ttime<>15)or(ttime<>30)or(ttime<>45)or(ttime<>60) ) then begin ShowMessage('15-30-45-60 dk girmelisiniz'); exit; end;

arkadaslar 15 30 45 60 rakamlari haricinde deger girilince uyari versin istiyorum ama yukardaki kodlar calismadi neyi gozden 
kaciriyorum acaba 
saygilar

---

if not ((ttime=15)or(ttime=30)or(ttime=45)or(ttime=60) ) then begin ShowMessage('15-30-45-60 dk girmelisiniz'); exit; end;

bu sekilde yapinca calisti
cok tesekkurler

if not ttime IN [15,30,45,60] then begin ShowMessage('15-30-45-60 dk girmelisiniz'); exit; end;