Bild aus der zwischenablage

[Pseudemys Nelsoni]

hallo,

ich habe diesen code hier irgendwo in der DP entdeckt:

Delphi-Quellcode:

Procedure Bild_Speichern;
Var Zeit :TDateTime;
    name :String;
    img: TPicture;
    Jpg: TJPEGImage;
    clip: TClipboard;
Begin 
  Zeit := now;
  Clip := Clipboard;
  if clip.HasFormat(CF_BITMAP) then
  begin 
    img := TPicture.create;
    Jpg := TJPEGImage.create;
    img.LoadFromClipboardFormat(CF_Bitmap,clip.GetAsHandle(CF_Bitmap),0);
    jpg.Assign(img.bitmap);
    jpg.CompressionQuality := 50;
    jpg.ProgressiveEncoding := true;
    jpg.Compress;
    name := ('c:\bl.jpg');
    jpg.SaveToFile(name);

    clip.clear;
    img.Free;
    jpg.Free;

  end;
end;

wieso funktioniert der nicht nachdem bzw bevor ich die PRINT taste drücke? ich habe herausgefunden das diese bedingung: if clip.HasFormat(CF_BITMAP) then nicht true wird