[Freeman]

Что конкретно интересует-то? Ввод ударе́ния с клавиатуры -- зажать Alt и набрать 769 на цифровой клаве. Переименовать файл -- в любой программе, поддерживающей Unicode, -- в том же "Проводнике", не к ночи будет помянут.

Программно -- аналогично, только использовать WideString (UnicodeString или просто string в модных версиях Delphi) и W-версии системных функций:

Код:

var
  W: WideString;
begin
  W := Application.ExeName;
  if not MoveFileW(Pointer(W), Pointer(W + WideChar(769))) then
    RaiseLastOSError;
end;