从文本文件读入的按钮名称怎么写单击事件？

我是从一个写有按钮名称的文本文件里面读入并画出按钮，但是这些按钮的名称同时也是数据库中数据表的名称，那么怎么实现写这些的按钮的单击事件呢？要是新建一个过程，可是怎么表示按钮的名称呢？因为是从文本文件读入的

button.onClick:=你要的事件

如：
procedure Tform1.sm(sender:TOBject);
begin
  showmessage('aa');
end;
procedure TForm1.FormCreate(Sender: TObject);
  var
  Button:TButton;
begin
  Button :=TButton.Create(Self);
  Button.Parent :=Self;
  Button.OnClick:=sm;
end;