Как обьединить кучу однобразного кода собый Button Click

[OST_K]

У меня есть много кнопок Button1 ... Button27 и каждая выполняет загрузку html-страничку вот

procedure TForm1.Button1Click(Sender: TObject);
begin
mydir:=ExtractFilePath(Application. ExeName);
form1.WebBrowser1.Navigate(mydir+'d ata\a.htm');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mydir:=ExtractFilePath(Application. ExeName);
form1.WebBrowser1.Navigate(mydir+'d ata\b.htm');
end;
...................

procedure TForm1.Button11Click(Sender: TObject);
begin
mydir:=ExtractFilePath(Application. ExeName);
form1.WebBrowser1.Navigate(mydir+'d ata\с.htm');
end;

вопрос
как можно их обьединить чтоб не писать процедуру для каждой кнопки так для каждой допустим при загрузке формы

procedure TForm1.FormCreate(Sender: TObject);
begin
mydir:=ExtractFilePath(Application. ExeName);
Button1.Click:=WebBrowser1.Navigate (mydir+'data\a.htm');
Button2.Click:=WebBrowser1.Navigate (mydir+'data\b.htm');
Button3.Click:=WebBrowser1.Navigate (mydir+'data\с.htm');
Button4.Click:=WebBrowser1.Navigate (mydir+'data\d.htm');
или
как допустим
if Button1.Click then begin
WebBrowser1.Navigate(mydir+'data\a. htm');
if Button2.Click then begin
WebBrowser1.Navigate(mydir+'data\b. htm');
if Button3.Click then begin
WebBrowser1.Navigate(mydir+'data\b. htm');

//--- это неправильно типо того как можно

[DoDge_VipeR]

 if (Sender as TButton).name = "Button1" then WebBrowser1.Navigate(mydir+'data\a. htm');

и т.д.

[Grag]

Лучше использовать свойство Tag кнопок и тогда можно все это сделать через оператор выбора Case...

Case (Sender as TButton).Tag of
 X1:
 X2:
 ...
XN:
end;

[OST_K]

с этим
if (Sender as TButton).name = "Button1" then WebBrowser1.Navigate(mydir+'data\a. htm');
///
[Error] Unit1.pas(80): Illegal character in input file: '"' ($22)

а вот тут Invalid class typecast
////
Case (Sender as TButton).Tag of
1:form1.WebBrowser1.Navigate(mydir+ 'data\a.htm');
2:form1.WebBrowser1.Navigate(mydir+ 'data\b.htm');
3:form1.WebBrowser1.Navigate(mydir+ 'data\v.htm');
4:form1.WebBrowser1.Navigate(mydir+ 'data\g.htm');
5:form1.WebBrowser1.Navigate(mydir+ 'data\d.htm');
end;
end;