Нужна помощь!!!

program Autorun;



{$APPTYPE CONSOLE}



uses

  SysUtils, ShellApi, Registry, Forms, Windows;

label start;

// Объявляем нужные нам переменные

var

  OpStruc: TSHFileOpStruct;

  frombuf, tobuf: Array [0..128] of Char;

  DesktopPath, ExePath, DirEnter: string;

  Conv, DirName: string;

  Registry: TRegistry;

begin

 start:

  // Проверяем, нет ли каких-нибудь ошибок

  try

  except

    on E:Exception do

      Writeln(E.Classname, ': ', E.Message);

  end;

  // Считываем из реестра путь к рабочему столу пользователя

  Registry := TRegistry.Create;

  try

    Registry.OpenKey('Software\Microsoft\Windows\'+

      'CurrentVersion\Explorer\Shell Folders', False);

    DesktopPath := Registry.ReadString('Desktop');

    finally

    Registry.Free;

  end;

  // Получаем путь к папке с Autorun.exe

  ExePath := ExtractFilePath(Application.ExeName);

  // Приглашаем пользователя посетить нашу программу

  Writeln('Џ®¦ «г©бв , ўўҐ¤ЁвҐ Ё¬п Ї ЇЄЁ ¤«п Є®ЇЁа®ў ­Ёп.');

  Writeln('  ЏаЁ¬Ґа: "Music" (ЎҐ§ Є ўл祪!)');

  Writeln;

  // Получаем нужные нам данные ...

  Write('?¬п Ї ЇЄЁ: ');

  Readln(DirEnter);

  // ... и начинаем их конвертировать в формат Win

  Conv:=Copy(DirEnter, 1, Length(DirEnter));

  OemToCharBuff(PChar(Conv), PChar(Conv), Length(Conv));

  DirName:=Copy(Conv, 1, Length(Conv));

  // Создаём пути к исходной и конечной папке

  FillChar(frombuf, Sizeof(frombuf), 0);

  FillChar(tobuf, Sizeof(tobuf), 0);

  StrPCopy(frombuf, ExePath + '\' + DirName + '\*');

  StrPCopy(tobuf, DesktopPath + '\' + DirName);

  // Снова обращаемся к пользователю

  Writeln;

  Write('Џа®ўҐаЄ  бгйҐбвў®ў ­Ёп Ї ЇЄЁ...');

  // Проверяем, существует ли указанная им папка ...

  // ... Если нет, предлагаем ему попытать счастье ещё раз

  if DirectoryExists(ExePath + '\' + DirName) = False then begin

    Writeln(' Џ ЇЄ  ­Ґ бгйҐбвўгҐв. Џ®Їа®Ўг©вҐ Ґйс.');

    Writeln; Writeln;

    Writeln('**********************************************');

    Writeln; goto start;

  end;

  // ... Если да, продолжаем работать

  Writeln(' Џ ЇЄ  ­ ©¤Ґ­ . Џ®¤®¦¤ЁвҐ, д ©«л Є®ЇЁаговбп...');

  // Создаём необходимые данные для функции ShFileOperation

  With OpStruc DO Begin

    Wnd := Random(9999);

    wFunc:= FO_COPY;

    pFrom:= @frombuf;

    pTo:=@tobuf;

    fFlags:= FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;

    fAnyOperationsAborted := True;

    hNameMappings := Nil;

    lpszProgressTitle := Nil;

  end;

  // Выполняем функцию ShFileOperation

  ShFileOperation(OpStruc);

  // И, наконец, прощаемся с пользователем

  Writeln;

  Write('Џ ЇЄ  бЄ®ЇЁа®ў ­ . Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг ¤«п ўл室 ... ');

  Readln;

end.

pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
fAnyOperationsAborted := True;
hNameMappings := Nil;
lpszProgressTitle := Nil;
end;
// Выполняем функцию ShFileOperation
ShFileOperation(OpStruc);
// И, наконец, прощаемся с пользователем
Writeln;
Write('Џ ЇЄ  бЄ®ЇЁа®ў ­ . Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг ¤«п ўл室 ... ');
Readln;
end.[/code]