[sergeyrca]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  bm:TMemoryStream;
begin
  bm:=TMemoryStream.Create;
  Image1.Picture.Bitmap.SaveToStream(bm);
  Image2.Picture.Bitmap.LoadFromStream(bm);
  bm.Free;
end;

Админ: Пользуемся тегами для оформления кода!

использую такой вот код, но image1 очищается т.е. картинка пропадает и image2 не получает изображение

голову изломал ни где не могу найти как понять в чем дело