Skrive til filer

Jeg har lavet et program som skal læse en sti fra en flad fil og derefter ændre stien og skrive den nye sti ned til den samme flade fil

her kommer det mystiske.
Jeg kan sagtens læse filer fra current dir, ved følgende linier.

var
sWTFfile : TextFile;
text : string;

begin
Assignfile(sWTFfile, 'PF.dat');
Reset(sWTFfile);


while not Eof(sWTFfile) do
  begin
  ReadLn(sWTFfile, text);
  edit1.Text := text;
  end;
closefile(sWTFfile);

Her læses PF.dat fra current dir uden problemer.

når jeg så vil skrive den nye adresse ned i filen således

var
WTFfile : TextFile;

begin
AssignFile(WTFfile, 'PF.dat');
ReWrite(WTFfile);
WriteLn(WTFfile, edit1.text);
CloseFile(WTFfile);

Her opretter den en ny fil ved navenet PF.dat i roden af C:/ istedet for current dir?????

hvorfor hvorfor dit og hvorfor dat?
hjælp mig med dette inden jeg får spat.