Текстовый Редактор

procedure TForm1.N2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
RichEdit2.Lines.LoadFromFile(OpenDialog1.FileName);
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
RichEdit2.Lines.SavetoFile(SaveDialog1.FileName + '.txt');
end;
 
procedure TForm1.N4Click(Sender: TObject);
begin
  Form1.Close;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
  if dlgFont1.Execute then
  RichEdit2.SelAttributes.Assign(dlgFont1.font);
  RichEdit2.SetFocus;
end;
 
procedure TForm1.N7Click(Sender: TObject);
begin
RichEdit2.Lines.Clear;
end;
 
procedure TForm1.N9Click(Sender: TObject);
begin
ShowMessage('Белкин Максим Валерьевич');
end;
 
procedure TForm1.N10Click(Sender: TObject);
begin
RichEdit2.Paragraph.Alignment:= taLeftJustify;
end;
 
procedure TForm1.N11Click(Sender: TObject);
begin
 RichEdit2.Paragraph.Alignment:= taCenter;
end;
 
procedure TForm1.N12Click(Sender: TObject);
begin
RichEdit2.Paragraph.Alignment:= taRightJustify;
end;
 
procedure TForm1.N13Click(Sender: TObject);
begin
RichEdit2.Undo;
end;
 
procedure TForm1.RichEdit2Change(Sender: TObject);
begin
 
end;
 
end.