Mostrar textos diferentes na mesma edit usando button

Bom dia a todos!

Sou novo no fórum e na área de programação e tenho a seguinte pergunta: creio que sera bem fácil mas já procurei por termos parecidos e não encontro algo relacionado.

Quero apenas fazer com que toda vez que o button1 for clicado um texto já pre-definido no código seja mostrado em uma edit ou ate mesmo em uma label tanto faz.

exemplo: cliquei uma vez aparece o texto "texto1" - cliquei outra vez aparece o "texto1" cliquei outra vez aparece o "texto3", sendo que os textos já estariam pre-definidos na aplicação.

Oque faço é algo muito simples, mas queria algo mais "ténico"

procedure TForm1.Button1Click(Sender: TObject);
var t1, t2, t3, t4:string;
begin
t1 := 'text1';t2:='text2';t3:='text3';
if edit1.text='' then
begin
edit1.Text:=t1;
abort;
end;
if edit1.Text = t1 then
begin
edit1.Text:= t2;
abort;
end;
if edit1.Text=t2 then
begin
edit1.Text:=t3;
abort;
end;
if edit1.text=t3 then
edit1.text:=t4
end;

Obrigado desde ja!