Подсчет количества верных ответов

procedure TForm1.Button1Click(Sender: TObject);
begin
kol:=0;
for i:=1 to ComponentCount-1 do
begin
 
if Components[i] is TLabel then
    begin
 
    if Tlabel(Components[i]).Caption='+' then
        begin
        s:=StrToFloat(Tlabel(Components[i-1]).Caption)+ StrToFloat(Tlabel(Components[i+1]).Caption);
        end;
 
    if Tlabel(Components[i]).Caption='-' then
        begin
        s:=StrToFloat(Tlabel(Components[i-1]).Caption)- StrToFloat(Tlabel(Components[i+1]).Caption);
        end;
 
    if Tlabel(Components[i]).Caption='*' then
        begin
        s:=StrToFloat(Tlabel(Components[i-1]).Caption)* StrToFloat(Tlabel(Components[i+1]).Caption);
        end;
 
    if Tlabel(Components[i]).Caption=':' then
        begin
        s:=StrToFloat(Tlabel(Components[i-1]).Caption) / StrToFloat(Tlabel(Components[i+1]).Caption);
        end;
 
    end;
 
if StrToInt(Edit2.Text)= s then
kol:=kol+1;
 
end;
 
 
Label10.Caption:=FloatToStr(kol);
 
end;

if Components[i] is TLabel then
    begin
 
    if Tlabel(Components[i]).Caption='+' then
        begin
        s:=StrToFloat(Tlabel(Components[i-1]).Caption)+ StrToFloat(Tlabel(Components[i+1]).Caption);
        if StrToFloat(TEdit(Components[i]).Text)= s then kol:=kol+1;
        end;