Insertar imagenes jpg

[salvanano]

Ola despues de mirar mucho por los foros sobre las imagenes *.jpg, de como insertarlas en un Timage, etc.. e conseguido encontrar una forma muy sencilla, sin necesidad de complicarse mucho el codigo.
Este codigo solo es para insertarlo en un TImage por lo que cada uno deberá aplicarlo a lo que quiera.

Código Delphi [-]
procedure TForm1.Abrir1Click(Sender: TObject);
var
jpg: TJpegImage;
begin
IMage1.Picture:= nil;
if OpenPictureDialog1.Execute=True then
begin
jpg:=TJpegImage.Create;
jpg.LoadFromFile(openpicturedialog1.FileName);
IMage1.Picture.Assign(jpg);
end;

Saludos

[Sotrono]

Hola, gracias por tu aporte!!
Faltaria hacer un jpg.Free para liberar la memoria, ya que cuando se asigna a Image.Picture la variable jpg, lo que se hace es una copia del contenido de Jpg y esa copia se la asigna al TImage, por lo tanto ya no se necesita tener a jpg ocupando memoria.

Bytes...

[salvanano]

Llevas toda la razon, gracias por corregir ese pequeño error.
saludos