Bilddatei öffnen

[Wolfram Stemmler]

Hallo Liste,

mit
  f=GetOpenFolderItem("image/jpeg")
  if f <> Nil then
    If f.exists then
      p=f.OpenAsPicture
      Canvas1.Backdrop=p
    end if
 end if
öffne ich Bilddateien. Leider werden die Bilder teilweise rechts- und  
linksgedreht, sowie auf dem Kopf stehend dargestellt.
Was ist da falsch?

Gruß
Wolf