[AND_REY]

Попроще можно сделать так:

Var
Flag: Boolean = True;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Flag Then Button1.Caption:= 'Сложение.'
Else Button1.Caption:= 'Вычитание.';
Flag := NOT(Flag);
end;