[шокир]

на данную кнопку вот такой код:

Код:

   object BitBtn1: TBitBtn
        Left = 24
        Top = 424
        Width = 113
        Height = 25
        Caption = 'Вычислить'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = BitBtn1Click
        Kind = bkOK