Mostar imagem aleatória sem se repetir - Delphi XE5

Bom, tenho um projeto, e preciso que ao clicar na tela (Num panel), apareça uma imagem aleatória entre 5 imagens (Ou mais, o número de imagens pode variar), sem se repetir, e ao ir clicando na tela, vá aparecendo imagem por imagem, sem se repetir, até acabar, usei vários TImage e para elas aparecerem, só altero a propriedade Visible para True.

Estou usando o seguinte código:

procedure TForm2.Panel1Click(Sender: TObject);
const
N = 5;
var

 I, T, P: Integer;
 Num: array[0..N - 1] of Integer;

 ListView1.Items.Clear;
 for I := 0 to N - 1 do
 Num[I] := I;
 for I := N - 1 downto 0 do
 begin
 P := Random(I + 1);
 T := Num[I];
 Num[I] := Num[P];
 Num[P] := T;
 end;
 case T of
 1 : Image1.Visible := True;
 2 : Image2.Visible := True;
 3 : Image3.Visible := True;
 4 : Image4.Visible := True;
 5 : Image5.Visible := True;
 end;
end;

Até deu certo com esse, mas ele só funciona uma vez e preciso que a cada clique, apareça uma imagem.

Desde já agradeço, valeu gente!