lezten beiden strings im edit löschen

[aaron]

wie kriege ich die letzten beiden strings im edit gelöscht:
das wäre aber nur am ende zuviel &#

Delphi-Quellcode:

var
   i: integer;
   s1,s2: string;
begin
   s1:=Edit1.Text;
   s2:='&#';
   for i:=1 to Length(s1) do
      s2:=s2+Format('%d',[Ord(s1[i])])+';&#';
    edit1.Text:=s2;
end;