Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   Dialogs;

 begin
   {$I-}
   MkDir('c:\windows');
   {$I+}
   if IOResult <> 0 then
     MessageDlg('Cannot Create Directory/Verzeichnis kann nicht angelegt werden!',
       mtWarning, [mbOK], 0)
   else
     MessageDlg('Directory Created/Neues Verzeichnis angelegt.', mtInformation, [mbOK], 0);
 end;