{On récupère le contenu du presse papier
dans un TImage et on l'enregistre}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Clipboard.HasFormat(cf_BITMAP) then
with Image1.Picture.Bitmap do
begin
Assign(Clipboard);
SaveToFile('Test.bmp');
end;
end;