[EvilChild]

sAnsw[12]:=Edit2.Text;
s:=sAnsw[12];
for j:=Length(s) downto 1 do
if s[j]=' ' then Delete(s,j,1);
for j:=Length(s) downto 1 do
if s[j]='-' then Delete(s,j,1);
s:=AnsiLowerCase(s);
sAnsw[12]:=s;
if sAnsw[12]=sOtv[12] then bRightCount2r:=bRightCount2r+1
else bWrongCount2r:=bWrongCount2r+1;
Edit2.Clear;
meh x)