如何创建“变量是按钮”的过程

窗口有四个按钮，单击按钮，当前按钮颜色改变，而其它三个按钮的颜色变为原始颜色，是不是要把变量设为按钮类型的才形，还是字符就可以搞定。 我是这样做的，但不行,如何修改下面的代码
//创建的过程
procedure Tform1.BTClick(Sender: TObject);
begin
end;
//单击某一按钮,响应的事件
procedure Tform1.Button1Click(Sender: TObject);
begin
  Btclick(Button1)
end;