Usando a função ForceDirectories() para criar um diretório juntamente com um ou mais subdiretórios

procedure TForm1.Button1Click(Sender: TObject);
var
  diretorio: string;
begin
  // diretório e subdiretorios que queremos criar
  diretorio := 'C:\arquivo de codigos\delphi\exemplos';

  // vamos criar o diretório e subdiretórios
  if ForceDirectories(diretorio) then
    ShowMessage('O diretório e subdiretórios foram criados.')
  else
    ShowMessage('O diretório e subdiretórios NÃO foram criados.')
end;