procedure TForm1.Button1Click(Sender: TObject);
var n,i,k,h,y:integer;s1,s:string; 
begin
n:=strtoint(edit1.text);
setlength(s,memo1.lines.count);
for i:=0 to memo1.lines.count-1 do
begin
s:=uppercase(memo1.lines[i]);
s1:='';
for y:=1 to length(s) do
if not (s[y] in [' ',',','.'])then s1:=s1+s[y];
s:=s1;
for k:=1 to length(s) do
begin h:=ord(s[k]);
h:=h+n;
if h>90 then h:=h-26;
s[k]:=chr(h);
end;
listbox1.items.add(s);
end;
end;