Function does not find text in Tedit

Question

With the code below I’m trying to find a text in a Tedit,

procedure TForm2.CheckBox3Click(Sender: TObject);
var i: integer;
   begin
   existeCampo := false;
    begin
       for i := 1 to form1.variavel do
       begin
          if TEdit(form1.FindComponent('edt_variavel'+IntToStr(i))).Text = 'dose_adicional' then
           begin
            existeCampo := true;
            break;
            checkbox3.Checked := true;
           end;
         end;

      if existeCampo = false then
        begin
        Showmessage('Para utilizar essa opção, adicione uma variavel com o nome de "dose_adicional");
        Checkbox3.Checked :=false;
        end;
     end;
   end;

I’ve done several tests, and he can’t find the text, even though I typed it correctly on Edit, why does this happen?

Answer 1

I tested and found a problem in its coding in the for part, the components always start at 0 (zero) and not at 1 (one), maybe if the additional dose_text were the first one it would not fall in the IF. And I also switched to a more practical form, but its functional.

In the break part I passed a line below, otherwise your checkbox will not be checked.

procedure TForm2.CheckBox3Click(Sender: TObject);
var i: integer;
begin
   existeCampo := false;

   for I := 0 to Componentcount-1 do
      begin
         if Components[i] is TEdit then
            begin
               if TEdit(Components[i]).Text = 'dose_adicional' then
                  begin
                     existeCampo := true;
                     checkbox3.Checked := true;
                     break;
                  end;
            end;
      end

  if existeCampo = false then
     begin
        Showmessage('Para utilizar essa opção, adicione uma variavel com o nome de "dose_adicional");
        Checkbox3.Checked :=false;
     end;
end;