procedure TForm1.Edit1Click(Sender: TObject); const arr: array[-1..0] of string = ('man', 'woman'); begin Edit1.Tag := not Edit1.Tag; Edit1.Text := arr[Edit1.Tag]; end;