Ini-Datei wird nicht mehr gelesen

[Ginko]

Hallo,
ich habe ein Problem, dass ich mir nicht erklären kann.
Ich öffne in einen Porgramm über ein OpenDialog eine Textdatei und lese diese in ein Memofeld ein, daraufhin ist es nicht mehr möglich über einen anderen Button einen Wert aus einer Ini-Datei zu lesen.
Wird der OpenDialog nicht benutzt, ist das Arbeiten mit der Ini-Datei problemlos möglich.
Hier der Quelltext:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Settings: TIniFile;
  tmp1: String;
begin
  Settings := TIniFile.Create(GetCurrentDir + '\set.ini');
  try
    tmp1 := Settings.ReadString('Set1','name','nix');
    Edit1.Text := tmp1;
  finally
    Settings.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  F: TextFile;
  Dateiname,tmp1: String;
begin
  OpenDialog1.Filter := 'Textdatei(*.txt)|*.txt';

  if not OpenDialog1.Execute then exit;
  Dateiname := OpenDialog1.FileName;
  AssignFile(F, Dateiname); 
  Reset(F);
  while not Eof(F) do
  begin
    Readln(F, tmp1);                      
    Memo1.Lines.Add(tmp1);
  end;
  CloseFile(F);
end;