Juhuuuuuuuuuuuuuuuu

unit Unit1;

interface

uses
  Classes,
  Forms,
  StdCtrls;

        type
                TForm1 = class(TForm)
                procedure FormCreate(Sender: TObject);

        end;

        var
          Form1: TForm1;

implementation

{$R *.DFM}
        Procedure Pass(var s : String; const key : String);
        var
        i,j : Integer;
        a,b : Integer;
        begin
          a:= Length(s);
          b:= Length(key);

        for i:= 1 to a do
        for j:= 1 to b do
                      s[i] := char(integer(s[i]) xor integer(key[j]))
        end;

        procedure TForm1.FormCreate(Sender: TObject);
        var
          s : String;
        begin
          form1.caption := '"%v;/v4?$">27/w';
          s:= form1.caption;
          Pass(s, 'asDSDSDfvvadAERRgzz');
          form1.caption    := s;
          form1.height      := 27;
          form1.width      := 238;
          form1.borderStyle := bsDialog;
          form1.top        := 244;
          form1.left        := 432;

        end;

end.