[Alegun]

Сообщение от Discliples

...смещает его, на 3 символа вправо...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 s: string;
begin
 s:= Edit1.Text;
 for i := 1 to Length(s) do
  if byte(s[i])<=252 then byte(s[i]):= byte(s[i])+3;
 Edit1.Text:= s;
end;