怎么删除MEMO中EDIT的内容

如何删除MEMO中EDIT的内容
如果想在MEMO中的每行删除最后一位，比如：
9000
0090
0888
EDIT->TEXT输入0
变成
900
009
0888


如果EDIT->TEXT输入00
变成
90
0090
0888

[解决办法]
正确的如下:
for(int len0= Edit->Text.Length(), len1, pos, i = 0; i < Memo1->Lines->Count; i++)
if(len1= Memo1->Lines->Strings[i].Length(), Memo1->Lines->Strings[i].SubString(len1- len0+ 1, len0)== Edit->Text)
Memo1->Lines->Strings[i]= Memo1->Lines->Strings[i].Delete(len1- len0+ 1, len0);

这次，我机器上跑过。正确。