Was kann Paint, was ich nicht kann? ( Clipboard pasten )

[DGL-luke]

Hallo,

wenn ich in GIMP einen Bildbereich in die Zwischenablage kopiere, kann MS Paint den wunderbar einfügen. Mein Programm aber nicht:

Delphi-Quellcode:

procedure TFMain.SBPasteClick(Sender: TObject);
var pic: TPicture;
    b: TBitmap;
begin
  pic := TPicture.Create;

  {if Clipboard.HasFormat(CF_PICTURE) then
    begin
      Showmessage('CF_PICTURE');
      pic.Assign(Clipboard);
    end
  else} if Clipboard.HasFormat(CF_BITMAP) then
    begin
      Showmessage('CF_BITMAP');
      pic.Bitmap.Assign(Clipboard);
    end
  {else if Clipboard.HasFormat(CF_METAFILEPICT) then
    begin
      ShowMessage('CF_METAFILEPICT');
      pic.Metafile.Assign(Clipboard);
    end}
  else
    Exit;

  LoadImage(pic);
  pic.Free;
end;

Folgende Meldung kommt:

Zitat:

---------------------------
JPEG-Kompressor
---------------------------
Format der Zwischenablage wird nicht unterstützt.
---------------------------
OK
---------------------------

Naja, die Frage steht im Titel...