TMemo 和文本文件相关联

procedure TForm1.btnOpen(Sender: TObject);
begin
mmo1.Lines.LoadFromFile('c:\csb.log')
end;

procedure TForm1.btnSaveClick(Sender: TObject);
begin
mmo1.Lines.SaveToFile('c:\csb.log') ;
end;