cambiar un texto con un botton

[ramonibk]

El problema es el siguiente.



cuando presiono un botón me tiene que cambiar un texto dependiendo de como estaba antes y lo he echo

begin
 If Form1.label1.Caption = 'Promer Texto'
  Then Begin
   Form1.Label1.Caption:= 'Segundo Texto';
  Exit End;
 If Form1.Label1.Caption ='Segundo Texto'
  Then Begin
   Form1.Label1.Caption:= 'Primer Texto';
 Exit End;
End;

y lo que pasa es que esto me funciona las primeras veces. pero cuando intento repetirlo mas veces se queda bloqueado. y no se como solucionarlo.