Вот пытаюсь создать папку — не дает гад!

procedure SaveAndOpenDocument(const PathName, FileName,
  FileContent: WideString);
var
   f: TextFile;
   sPath, sFileName, sFileContent: string;
begin
     sPath := PathName;
     if not DirectoryExists(sPath) then CreateDir(sPath);

     sFileName := sPath + '\' + FileName;
     sFileContent := FileContent + ' ' +DateTimeToStr(Now);

     AssignFile(f,sFileName);
     Rewrite(f);
     Writeln(f, sFileContent);
     CloseFile(f);
     ShellExecute(0, 'open', PChar(sFileName), nil, nil, 5);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     SaveAndOpenDocument('C:\Documents and Settings\Administrator\My Documents\MyDocs', '3.doc','test3');
end;

выдает ошибку IO на Rewrite ну и каталог соответственно не создался