[roman]

Bueno, si de algo sirve

Código Delphi [-]
object btnGracias: TButton
  Left = 8
  Top = 8
  Width = 75
  Height = 25
  Caption = 'Gracias'
  TabOrder = 0
  OnClick = btnGraciasClick // ShowMessage('¡Gracias!');
end

// Saludos