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