из буфера в TMemoryStream

[designer999]

Здравствуйте
есть код который копирует из буфера картину в Timage

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  if ClipBoard.HasFormat(CF_BITMAP) then
  begin
  image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
  //Clipboard.Clear;
end;

работает отлично, но нужно мне сохранить эту картинку в TMemoryStream, кто знает как можно это реализовать ?

[Пепел Феникса]

image1.picture.bitmap.savetostream

[designer999]

Сообщение от Пепел Феникса

image1.picture.bitmap.savetostream

это понятно))) а как сразу из буфера загрузить в TMemoryStream, без использования Image1 ?

[Пепел Феникса]

создайте временный TBitmap в него картинку с буфера и там и сохраните его.