OnClick dinamicamente

[barakuda]

Hola a tod@.

Verán hace tiempo hice un programa donde utilizaba la propiedad OnClick de los TImages de las imágenes que cargaba para, mostrar un mensaje, ir a una dirección de Internet... esto lo hacia de forma estática y en tiempo de ejecución mostraba la imagen mediante el Bitmap.LoadFromFile().
Con ganas de mejorar quiero hacer esto mismo pero dinamicamente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  ListadeObjetos: Tlist;
  I: Integer;

begin

  ListadeObjetos := Tlist.Create();

  for I := 0 to 3 do
  begin
    ListadeObjetos.Add(TImage.Create(Form1));

    with TImage(ListadeObjetos.Items[i]) do
    begin
      Parent := HorzScrollBox1;
      Height := 100;
      Width := 100;
      Bitmap.LoadFromFile(GetCurrentDir + '\' + (I + 1).ToString + '.png');
      with Margins do
      begin
        Bottom := 5;
        Left := 5;
        Right := 5;
        Top := 5;
      end;

      MarginWrapMode := MarginWrapMode.iwStretch;
      Align := Align.alLeft;
      OnClick := pppClick;
    end;

  end;

end;

Código Delphi [-]
  public
    { Public declarations }
    procedure pppClick(Sender: TObject);

Código Delphi [-]
procedure TForm1.pppClick(Sender: TObject);
begin
    showmessage('prueba Imagen:');
end;

Al ejecutar lo que consigo es siempre el mismo mensaje ''prueba Imagen' pero mi intención es que cada imagen que creo le pase (no se como) un showmessage('Timage:'+xx ) diferente a la propiedad OnClick.

¿Pueden echarme una mano con esto por favor?.