Programa en delphi de un boton con dos acciones

[[duilioisola]]

Creo que lo que debes hacer es rellenar el evento OnClick del botón.
Ten en cuenta que lo que escribo es pseudocódigo.
Lee también la Guia de Estilo, como te propone Casimiro para que puedas formular tus preguntas correctamente.

Código Delphi [-]
OnClick
begin
   if (Caption = 'Hola') then
   begin
      ShowMessage('Hola');
      Caption := 'Adios';
   end
   else
   begin
      ShowMessage('Adios');
      Caption := 'Hola';
   end
end;