Programa en delphi de un boton con dos acciones

[ecfisa]

Hola chris699.

Otra opción es:

Código Delphi [-]
procedure TForm1.btnHolaAdiosClick(Sender: TObject);
const
   MSG: array[Boolean] of string = ('Hola','Adios');
begin
  with Sender as TButton do
  begin
    ShowMessage(MSG[Boolean(Tag)]);
    Tag     := Integer(not Boolean(Tag));
    Caption := MSG[Boolean(Tag)];
  end;
end;

La propiedad Tag del TButton incialmente es 0, no la modifiques o iniciala a 0 en evento OnCreate del form.

Saludos.