Есть несколько способов реализации, но для учебных целей пойдет и такая:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
p,c:string;
i,n,x:integer;
begin
p:=edit1.text; //Откр.текст
n:=length(p); //его длина
c:=''; //начальное значение Шфр-текста
for i:=1 to n do
begin
x:=ord(p[i]);
if x<253 then
c:=c+char(x+3) //собственно сама реализация
else c:=c+char(x-61);
end;
edit2.Text:=c;
end;
и обратое преобразование:
PHP код:
begin
x:=ord(p[i]);
if x>195 then
c:=c+char(x-3) //собственно сама реализация
else c:=c+char(x+61);
end;