procedure TForm1.N1Click(Sender: TObject);
begin
memo1.Lines.Clear; //清除
end;

procedure TForm1.C1Click(Sender: TObject);
begin
Memo1.CopyToClipboard; //复制
memo1
end;

procedure TForm1.X1Click(Sender: TObject);
begin
Memo1.CutToClipboard;   //剪切
end;

procedure TForm1.N5Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;    //粘贴
end;

procedure TForm1.D1Click(Sender: TObject);
begin
Memo1.ClearSelection;         //删除
end;

procedure TForm1.N6Click(Sender: TObject);
begin
if FontDialog1.Execute then
memo1.Font:=FontDialog1.Font;         //打开字体对话框
end;

procedure TForm1.N2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
memo1.Lines.SaveToFile(SaveDialog1.FileName);    //保存
end;