Programa en delphi de un boton con dos acciones

[chris699]

Me disculpo por mi incompetencia, pues soy nuevo en esto de los foros, aun asi me pondre al corriente con sus normas, efectivamente el pseudocodigo de duilioisola me ayudo a resolver mi problema, mi codigo se parecia mucho al de el, mi error estaba como habia dicho ya en la condicion if, y ademas no sabia que el end dentro del if no llevara punto y coma, yo se lo ponia por eso me daba error.

No se como anexar el codigo como ustedes lo hacen, pero les dejo aqui el que yo hice:

On click
begin
if bt_HolaAdios.Caption = '&Hola'
then
begin
showmessage('¡Hola!');
bt_HolaAdios.Caption := '&Adios';
end;
else if bt_HolaAdios.Caption := '&Hola'; then
begin
showmessage('¡Adios!');

end;
end;


end.

Les repito, ya lo solucione.. mi error unico era la condicion if despues del else, y los puntos y coma despues de cada end dentro de la condicion if y else.

Una vez mas me disculpo y les agradezco mucho su apoyo, gracias duilioisola por tu aportacion.