Работа с циклом if else.

for (int i=sl->Count-1;i>=0;i--)
if (sl->Strings[i].Pos(edit3->Text))
{
String s=sl->Strings[i];
id=s.SubString(4,s.Pos("Name=")-4).ToInt();
sl->Delete(i);
sl->Delete(i-1);
sl->Delete(i-2);
break;
}
esle Form3->Show();

      bool bylo;
      for (int i=sl->Count-1;i > 1;i--)
        if (sl->Strings[i].Pos(Edit3->Text)) 
        {
          sl->Delete(i);
          sl->Delete(i-1);
          sl->Delete(i-2);
          bylo = true ;
          i -= 2;
        }
      if (!bylo) ShowMessage("Not Found");

int id;
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
TStringList* sl= new TStringList();
sl->LoadFromFile("Variables.txt");
bool x;
int i;
        for (i=sl->Count-1;i>1;i--)
        if (sl->Strings[i].Pos(edit3->Text)) {x=true; break;}
        else x=false;
        if(x)
        {
          String s=sl->Strings[i];
          id=s.SubString(4,s.Pos("Name=")-4).ToInt();
          sl->Delete(i);
          sl->Delete(i-1);
          sl->Delete(i-2);
        }
        else {ShowMessage("Not Found");}
sl->SaveToFile("Variables.txt");
sl->LoadFromFile("App.ini");
sl->Text = StringReplace(sl->Text,"[!ShowMeter App"+String(id)+"]","",TReplaceFlags()<<rfReplaceAll);
sl->Text = StringReplace(sl->Text,"[!HideMeter App"+String(id)+"]","",TReplaceFlags()<<rfReplaceAll);
int u = sl->IndexOf("[Back"+String(id)+"]");
for (i=0;i<8;i++)
{
sl->Delete(u);
}
int p = sl->IndexOf("[App"+String(id)+"]");
for (i=0;i<15;i++)
{
sl->Delete(p);
}
sl->Strings[14];
int idY=sl->Values["Y"].ToInt();
idY+=2;
sl->Values["Y"]=idY;
sl->Strings[15];
int idH=sl->Values["H"].ToInt();
idH-=30;
sl->Values["H"]=idH;
sl->SaveToFile("App.ini");
delete sl;
edit3->Clear();
Form2->Show();
}