JPEG aus Zwischenablage lesen

[faux]

OK, es funktioniert doch nicht...

Delphi-Quellcode:

begin
  Application.Initialize;
  JpegImage := TJpegImage.Create;
  Clipboard := TClipboard.Create;
  Bitmap := TBitmap.Create;
  Bitmap.Assign(Clipboard); //Bitmap wird Zwischenablage zugewiesen
  JpegImage.Assign(Bitmap); //Jpeg wird Bitmap zugewiesen und somit konvertiert
  Clipboard.Clear; //Zwischenablage leeren
  Clipboard.Assign(JpegImage); //Jpeg in Zwischenablage schreiben
  JpegImage.Free;
  ClipBoard.Free;
  Bitmap.Free;
  Application.Run;
end.

Ist das so ok? Es funktioniert nicht. Danach ist nämlich wieder ein Bitmap in der Zwischenablage...
Bin für jeden Hinweis dankbar.
Grüße, Faux.