usesDialogs; 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
;