procedure TForm1.Button1Click(Sender: TObject);
var k,i,a,s:integer;
    g,c : Char;
begin
  k:=strtoint(edit3.text);
  edit2.text:='';
  a:=1;
  for I := 1 to length(edit1.Text) do
    begin
     c:=edit1.text[a];
     s:=ord(c)+k;
     if s>122 then
       s:=97;
     if s in[91..96] then
      s:=65;
      g:=chr(s);
     edit2.text:=edit2.Text+g;
     a:=a+1;
    end;

end;