Найти сумму квадратов нечетных чисел в диапазоне от А и В 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));