[glaZZ]

Мне на ум приходят два варианта
1.

Код:

var
  Form1: TForm1;
  i: Integer; 
  StrList: TStringlist;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := StrList[i]; // Запись в Edit i-й строки из списка
  inc(i); // Увеличение i на 1
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Создаем список значений для Edit и заполняем
  StrList := TstringList.Create;
  StrList.Add('Кнопка нажата 1 раз');
  StrList.Add('Кнопка нажата 2 раза');
end;

2. Просто при нажатии проверять значение Edit-а и заменять на другое.