Logisches problem

[SaFu]

Hallo

Hab gerade ein Problem und komm einfach nicht drauf.

Und zwar bei meinen Abfragen hier unten.
Mein Problem habe ich mit der Combobox4, wenn der Name in den Items vorhanden ist soll der eingebene Name nicht in die Items übernommen werden und es soll bei der 1. weitergehen und wenn der name nicht vorhanden ist soll er übernommen werden und es soll ebenfalls bei der 1.weitergehen
Kann mir da mal jemand helfen habe gerade ein Denk Problen

Delphi-Quellcode:

procedure TForm7.Button2Click(Sender: TObject);
var x,y:integer;
begin
if ComboBox4.Text <> '' then
 begin
   if ComboBox3.Items.IndexOf(ComboBox4.text)> -1 Then
  begin
   Application.MessageBox('    Vertretungsplan Existiert ','Speicherinformation',48);
     begin // bis hierhin funkioniert es wunderbar
      if not ComboBox4.Items.IndexOf(ComboBox4.Text)> -1 Then
        begin
         Combobox4.Items.Add(ComboBox4.Text);
        end;
         end
         else
         begin //1.
          Combobox3.Items.Add(ComboBox4.Text);// Text in die ComboBox3 List übergeben
          Vertrpl:= TStringlist.Create;   // Stringliste erzeugen
          Vertrpl.Add(IntToStr(StringGrid1.Colcount));
          Vertrpl.Add(IntToStr(StringGrid1.Rowcount));
          for x:= 0 to StringGrid1.ColCount-1 do
          for y:= 0 to StringGrid1.RowCount-1 do
          Vertrpl.Add(StringGrid1.Cells[x,y]);
          for x:= 0 to StringGrid1.ColCount-1 do
          Vertrpl.Add(IntToStr(StringGrid1.ColWidths[x]));
          for x:= 0 to StringGrid1.RowCount-1 do
          Vertrpl.Add(IntToStr(StringGrid1.RowHeights[x]));
          Vertrpl.Add(IntToStr(StringGrid1.Clientwidth));
          Vertrpl.Add(IntToStr(StringGrid1.Clientheight));
          Vertrpl.Add(IntToStr(Ord(StringGrid1.ScrollBars)));
          plan:= ExtractFilePath(ParamStr(0))+'Vertretungspläne\'+ ComboBox4.Text +'.txt';
          Vertrpl.SaveToFile(plan);
          Showmessage('Datei wurde in:' + sLineBreak + plan + ' gespeichert');
          Vertrpl.Free;
         end;
          begin
           lehrerl:= ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+ 'liste.txt';
           ComboBox3.Items.SaveToFile(lehrerl);
           Form8.ListBox1.Clear;
           lehrerl2:= ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+ 'alleLehrer.txt';
           Combobox4.Items.SaveToFile(lehrerl2);
           lehrerl:= ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+ 'liste.txt';
           Form8.ListBox1.Items.LoadFromFile(lehrerl);
           Button7.click;
          end;
          end;
        end
     else
    Application.MessageBox('Bitte Name eingeben','Speicherinformation',48);
end;

Danke sascha