Create TImage = erro!

[ZueRa 0]

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

[Jessica_Priscila 0]

Oi, tente com o componente "TOpenPictureDialog", e outra coisa: tente mudar o "visible:= true" para depois do

"Picture.LoadFromFile"

 

;)