怎么修改文本内容

如何修改文本内容
文本内容为：
012345678901
012345678901
.......

用MEMO加载打开后如何给每行的数字后面批量添加指定的其他数字？？ 例如：123456 
[解决办法]
在Form上放一个Edit,并放一个Button,然后在Button的Click中写代码如下

var
  i : integer;
begin
  for i:=0 to Memo.Lines.Count-1 do
   Memo.Lines.Strings[i] := Memo.Lines.Strings[i] + Edit.Text;
end;

然后在Edit.Text中输入123456点这个按钮即可