ディレクトリーを2段以上、一度に作ろうと、MkDir('a:\dir1\dir2') とした ら(dir1、dir2 ともに新規ディレクトリー)、エラーになります。一度に作 れないのですか?
procedure ForceDirectories(Dir: string) を使って下さい。MkDir では1段 ずつしか作れません。