Найти сумму квадратов нечетных чисел в диапазоне от а и в cделать в delphi

Дельфи - тот же паскаль в принципе вот тебе кусок кода вычисляющего исходное

Его запихнешь в какой-нибудь Button1.Click() 

в Edit1 и  Edit2  вводятся а и b 

 var a,b,i:longint;  

s:=0; 

a:=StrToInt(Edit1.Text);

b:= StrToInt(Edit2.Text); 

for  i:=a to b do

      if  (a mod 2)<> 0 then s:=s+sqr(i);  

 ShowMessage(StrToInt(s));