Probleme mit Stringlist

[Knotti2005]

Ich hab ein Problem mit meinen Programm

Und zwar kann ich immer dne BItbutton betätigen bis auf wenn ich vorher den Open oder SaveDialog ausgeführt habe...

Als ob nach der Dialogsache die Namen der beiden Daten durch den OpenDialog1.FileName ersetzt wird.. Obwohl beides nichts miteinander zu tun hat...

BitButton

Delphi-Quellcode:

procedure TForm2.BitBtn1Click(Sender: TObject);
var E, E2: TStringList;
    i, ID:Integer;
begin
  E:=TStringList.Create;    //Datei 1
  E.LoadFromFile('.\list1.txt');
  E2:=TStringList.Create;   //Datei 2
  E2.LoadFromFile('.\list2.txt');
  E.AddStrings(E2);         //Zusammenführen
  E2.Free;   //Datei 2 kann weg
  for i:=1 to 24 do //für 24 Edits
    begin
    ID:=Random(E.Count);  //Index raussuchen
    if E.Count=0 then Break;
    TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E[ID]; //Text in Edit
    E.Delete(ID);  //Text auf SL löschen
    end;
  E.Free;

end;

OpenDialog

Delphi-Quellcode:

procedure TForm2.dxBarButton4Click(Sender: TObject);
var
  MyList: TStringList;
  i: Integer;
begin
  MyList := TStringList.Create;
if OpenDialog1.Execute then
  begin
  MyList.LoadFromFile(OpenDialog1.FileName);
  end;
  for i := 1 to 26 do
    TEdit(FindComponent('Edit' + IntToStr(i))).Text := MyList[i - 1];
    // -1, da der Index in der Stringlist mit 0 beginnt
    // MyList[...] entspricht MyList.Strings[...]
  MyList.Free;
end;