Problem beim abspeichern in Datei

[mercanery]

Hi folks!

Wir haben im Info-Unterricht n Hangman (Galgenmännchen) programmiert.
Jetz soll sich das Prog die eingegebenen Wörter in iner Datei merken um sie evtl. später zufallsgesteuert als zu ratendes Wort einzulesen.
Unser Lehrer hat uns dazu AssignFile,ReWrite,Write,Read und seek gegeben. Mein jämmerlicher Source dazu sieht so aus:

Delphi-Quellcode:

procedure TFrm_Hangman.speichern(a:Speichertyp);
begin
assignfile(Datei,'woerter.dat');
rewrite(datei);
write(datei,a);
closefile(datei);
end;

(Speichertyp wurde in "type" als String[14] deklariert.)

Jetz will ich aber nat. nicht, dass der immer wieder die datei nueschreibt...wie erreich ichs, dass der die datei nur dann nueschriebt, wenns die auch gibt?mein versuch:

Delphi-Quellcode:

procedure TFrm_Hangman.speichern(a:Speichertyp);
begin
assignfile(Datei,'woerter.txt');
if not fileexists('woerter.txt')
    then rewrite(datei);
write(datei,a);
closefile(datei);
end;

aber da krieg ich gesagt: "Dateizugrif verweigert."

Hoffe ihr könnt mir helfen...