add callback function in demo picture wall

[kabiri]

i add callback function to demo picturewall

property OnClickResult: TProc<Boolean> read FOnClickResult write FOnClickResult;

and use it in main form

  LInfo.Frame.PositionIndex := LIndex;
  LInfo.Show;
  LInfo.Frame.OnClickResult:=
    procedure (aResult : Boolean)
    begin
     if aResult then
     begin
      response:=LInfo.Frame.PositionIndex;
      showmessage(inttostr(response));
     end;
    end;

when i click on picture LInfo.Frame.PositionIndex is last number of PositionIndex PictureWall.zip