aNewParol := frmDlg.eValuePassword.Text;
    if aNewParol = constParol then begin

ShowMessage('Внимание! Файл с паролем пытались исправить, для защиты возвращаем исходный пароль');
  constParol := 'password';

const
  PassRec:packed record
    GUID:TGUID;
    Data:array[0..255] of Char;
  end=(GUID:'{19824508-23C7-4923-A19C-68B9FBED7959}');

//Чтение сохранённого пароля
function GetPass:string;
begin
  Result:=PassRec.Data;
end;

//Запись пароля в собственный EXE-шник
procedure SetPass(const NewPass:string);
var
  OldFileName,Sign:string;
  Offset:Integer;
begin
  with TMemoryStream.Create do try
    LoadFromFile(ParamStr(0));
    OldFileName:=ChangeFileExt(ParamStr(0),'.old');
    DeleteFile(PChar(OldFileName));
    if not RenameFile(ParamStr(0),OldFileName) then
      raise Exception.Create('ERROR!!!');
    SetString(Sign,PChar(@PassRec.GUID),SizeOf(TGUID));
    Offset:=MemoryStrPos(Sign,Memory^,Size);
    //функцию брать тут http://www.delphikingdom.com/asp/answer.asp?IDAnswer=38104
    if Offset<0 then
      raise Exception.Create('ERROR!!!');
    Inc(Offset,SizeOf(TGUID));
    StrLCopy(PChar(Memory)+Offset,PChar(NewPass),SizeOf(PassRec.Data));
    SaveToFile(ParamStr(0));
  finally
    Free;
  end;
end;
//После вызова останется ".old" файл который можно стереть при следующем запуске или при выходе из программы через батничек (как именно, ни раз обсуждалось).

type
TChArr = array[1..32] of byte;

var DS:TChArr;

procedure Decode(s:string);
var i:byte;
begin
for i:=1 to Length(s) do
Ds[i]:=255-s[i];
end;