Create TImage = erro!

Saudações galera do Imasters.

Estou tentando criar um TImage em tempo de execução, mas, não está funcionando e não sei o que há de errado.

Irei mostrar o source:

procedure TfPrincipal.btUploadClick(Sender: TObject);
var

i : integer;
 begin
jvOpen.Execute;
 for i:=0 to jvOpen.Files.Count-1 do
	begin
 with TImage.Create(Self) do
 begin
 Parent := self;
 Left := 256;
 Top := 40;
 Visible := true;
 //Picture.RegisterFileFormat('.png','Portable Network Graphics',TPngObject);
 Picture.LoadFromFile(jvOpen.Files[i]);
 BringtoFront;
 end;
	end;
 end;

no código em questão, o for foi usado porque quero por exemplo, quando o usuário selecionar 4 imagens serem criados 4 TImage's, um do lado do outro.

Mas, de qualquer forma, nem com uma imagem está funcionando.

Se alguém puder dar um help,

agradeço.

[]'s