Рефакторинг программного кода

[Charlotte]

Рефакторинг программного кода

добрый вечер, уважаемые программисты. помогите, пожалуйста. выполнить задания.

задание:
1) создать небольшое приложение, в котором "забыть" присвоить кнопке название и оставит его за умолчанием -Button1, потом написать обработчик события onClick для этой кнопке, а также в нескольких местах программы использовать переменную Button1.

unit Unit117;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,xml.xmldom,Xml.XMLIntf,Xml.XMLDoc;
 
type
  TForm117 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    XML:TXMLDocument;
  public
    { Public declarations }
  end;
 
var
  Form117: TForm117;
 
implementation
 
{$R *.dfm}
 
procedure TForm117.Button1Click(Sender: TObject);
begin
 Memo1.Lines.add('натиснути кнопку  Button1');
end;
 
procedure TForm117.Button2Click(Sender: TObject);
begin
Memo1.lines.Add('натиснути кнопку  Button2') ;
Memo1.lines.Add('Привласнити  Button1 нове значення Caption ="кнопка"');
Button1.Caption:='кнопка';
end;
procedure TForm1.btnOpenFleClick(Sender:TObject);
var
NodesCount,I:integer;
dt:strng;
begin
if dlgOpenFile.Execute then
begin
Xml:=TXMLDocument.create(nil);
try
Xml.LoadFromFle(dlgOpenFile.FileName);
if not Xml.IsEmptyDoc then
for I:=0 TO Xml.DocumentElement.ChildNodes.Count - 1 do
begin
dt:=Xml.DocumentElement.ChildNodes[I].ChildNodes['datetime'].Text;
Memo1.Lines.Add(dt);
end;
finally
Xml.free;
end;
end;
end;
end.

2)Отобразить окно списка рефакторинга "Refactorings".
3)выполнить операцию рефакторинга "Rename" изменить имя "Button1" на новое - "btnSimple".
4)переместить все рядки вывод текстовой информации у секцию resourcestring (Extrract Resource String) c приставкой "Str".
5)Создать новый метод для работы с Xml-документом командой "Extract Method".
6)Выбрать в любом месте кода название метода ParseXML и выполнить команду "Change Params...".
7)Применить все операции рефакторинга и просмотреть изменения программного кода.



как сделать процедуру procedure TForm1.btnOpenFleClick(Sender:TObje ct);?


заранее огромное спасибо.