菜鸟想实现这样的一个功能：我在c盘上有一个叫bug的文本文件，文本文件里有很多字母，我想每按一次按钮就可删除文本文件的最后一个字母，怎么能做到呢？？？(30分)

菜鸟想实现这样的一个功能：我在c盘上有一个叫bug的文本文件，文本文件里有很多字母，我想每按一次按钮就可删除文本文件的最后一个字母，怎么能做到呢？？？

procedure TForm1.Button1Click(Sender: TObject);//读入

begin
memo1.Lines.LoadFromFile('c:/bug.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);//删除，但要注册回车与换行符
var
str: string;
begin
str := memo1.Text;
delete(str,Length(memo1.Text),1);
memo1.Text := str;
//在这里保存或者在其它地方保存文件内容
end;

接受答案了.