function TClipBmp.Execute;
begin
result:=false;
if clipboard.HasFormat(CF_BITMAP) then begin
FBitmap.LoadFromClipboardFormat(CF_BITMAP, ClipBoard.GetAsHandle(cf_Bitmap), 0);
if NOT FBitmap.Empty then begin
FBitmap.SaveToFile(FFileName);
result:=true;
end;
end;
end;