Подскажите пожалуйста программу для построения кода Delphi?

procedure TFormedit.FormCreate(Sender: TObject);
begin
 combobox1.Items:=screen.Fonts;
 
end;
 
 
procedure TFormedit.ComboBox2Change(Sender: TObject);
begin
  RichEdit1.Font.Size := StrToInt(ComboBox2.Text);
end;
 
procedure TFormedit.ComboBox1Change(Sender: TObject);
begin
  RichEdit1.Font.Name := ComboBox1.Text;
end;
 
procedure TFormedit.ToolButton1Click(Sender: TObject);
begin
If OpenDialog1.Execute then
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
 
procedure TFormedit.ToolButton2Click(Sender: TObject);
begin
RichEdit1.Paragraph.Numbering:=nsBullet;
end;
 
procedure TFormedit.ToolButton3Click(Sender: TObject);
begin
ComboBox1.SetFocus;
end;
 
procedure TFormedit.ComboBox1Click(Sender: TObject);
begin
richedit1.selattributes.Name:=combobox1.Text;
 
end;
 
procedure TFormedit.ToolButton4Click(Sender: TObject);
begin
{}
combobox2.SetFocus;
end;
 
procedure TFormedit.ToolButton6Click(Sender: TObject);
begin
If SaveDialog1.Execute then
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;
 
procedure TFormedit.ToolButton5Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style:=[fsBold];
RichEdit1.SelAttributes.Name:='Gotic';
 
end;
 
procedure TFormedit.ComboBox2Click(Sender: TObject);
begin
 richedit1.selattributes.size:=strtoint(ComboBox2.Text);
end;