OpenDialog i InvalidFilename

witam. Posiadam D7, i mam pewien problem. Wrzucam na forme opendialoga i 2 buttony. Nastepnie wpisuje taki kod :

procedure TForm1.Button1Click(Sender: TObject);
begin
 opendialog1.execute;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   plik:textfile;
begin
  assignfile(plik,'logi\test.htm');
  rewrite(plik);
  writeln(plik,'test');
  closefile(plik);
end;

No i klikam button2. Wszytko dziala poprawnie - zaposuje sie to co ma sie zapisac do pliku. Klikam jeszcze raz - znow wszystko OK. I wszytko jest OK do momentu az klikne button1 - wywoluje sie opendialog.execute, wybieram jakis plik. No i od tego momentu jak klikne button2 to wywala blad "Project Project1.exe raised exception class EInOutError with message "invalid filename". Process stoped".
Czemu tak sie dzieje ? przeciez procedury button1click i button2click nie maja ze soba nic wspolnego ! Przeciez nie otwieram pliku ktory wybralem w opendialog tylko jakis inny! Pomocy!

Dodam jeszcze, ze to co podalem to jest CALY KOD PROGRAMU! Nie uzylem zadnych innych komponentow niz te o ktorych wspomnialem, nie wykonuje tez zadnych innych procedur. Prosze o pomoc.

OpenDialog zmienia aktualny katalog. Zamiast sciezki wzglednej ('logi\test.htm') daj bezwzgledna ('c:\logi\test.htm') albo najlepiej ze sciezka programu (ExtractFilePath(Application.ExeName)+'logi\test.htm')

naturalnie Pawle miales racje. dzieki Ci.