ayuda con arrays

[chanex]

Hola amigos estoy empezando con delphi, alguien podria ayudarme con lo siguiente:

procedure TForm1.Button1Click(Sender: TObject);
var
ar: Array[1..4] of String;
begin
ar[1] := 'Luis';
ar[2] := 'Juan';
ar[3] := 'Manuel';
ar[4] := 'Jose';

Como puedo hacer para mostrarlo en un TLabel y que se muestren uno por uno y desde el ar[1], hasta el ar[4], y otra vez del ar[1] al ar[4], y asi sucesivamente, alguien me puede sugerir algo?, gracias de antemano.