procedure TForm1.ClickGeneral(Sender : TObject);
var
numbot : integer;
begin
        with Sender as TButton do
        begin
                numbot:=SuperVal(Name);
                Self.Caption := 'Has pulsado el boton nº' + inttostr(numbot);
        end;
end;

Crea un form, crea cuatro o cinco botones y asocia el onclick de cada uno a ClickGeneral.