TImage

I am developing an application which is supposed to display random Images from a directory. It compiles and runs fine except it does not show the Pictures. Here is a snippet:

      j := Selection.Count;
      i := random(j);
      name := Selection[i];
      Caption := name;
      ImageChosen.Picture.LoadFromFile(name);
      ImageChosen.Stretch := true;

Am I missing something?

Best

Bjorn