Создание папки в Delphi

[malicious_devil]

как сделать так, чтоб при открытии программы, создавалась папка в моих документах, и чтоб я смогла в эту папку через программу сохранять текстовый документ?

[VIK_aka_TOR]

библиотека - SysUtils unit

  
function CreateDir ( const Dir : string ) : Boolean;
function ForceDirectories ( const Path : string ) : Boolean;

CreateDir создает только одну папку

ForceDirectories создает одну или несколько папок сразу, которых не достает

begin
  // Пытаемся создать новый вложенный каталог в текущем каталоге
  if CreateDir('C:\NonExistantDir\TestDir')
  then ShowMessage('Добавление нового каталога прошло успешно')
  else ShowMessage('Добавление нового каталога вызвало ошибку : '+
                   IntToStr(GetLastError));

  // Now force it to create this directory
  if ForceDirectories('C:\NonExistantDir\TestDir')
  then ShowMessage('Добавление нового каталога прошло успешно')
  else ShowMessage('Добавление нового каталога вызвало ошибку : '+
                   IntToStr(GetLastError));
end;

[Serge_Bliznykov]

а если нужно узнать путь к папке "Мои документы", тогда код можно взять тут

[malicious_devil]

что должно быть. Как понять что функция сработала

[Алексей_2012]

function tform1.CreateFullDir(Dir: string): bool; //создание папки
var
  dir2, temp: string;
begin
  result := true;
  try
    if Dir[length(Dir)] <> '\' then
      Dir := Dir + '\';
    temp := Dir;
    while DirectoryExists(temp) = false do
    begin
      dir2 := dir2 + copy(Dir, 1, pos('\', Dir));
      Delete(Dir, 1, pos('\', Dir));
      CreateDir(dir2);
    end;
  except
    result := false;
  end;
end;

в кнопке:

if not createfulldir({полный путь}) then
begin
showmessage('Ошибка создания папки!');
exit;
end
else
showmessage('Папка создана успешно!');