Проблема с TImage, BMP, JPEG

[Florento]

Доброе время суток.

Пишу небольшую программу, столкнулся со следующие проблемой:

Не могу скопировать один Image в другой. Копирую так:

Image7.Picture.Bitmap.LoadFromFile('Now.jpg');

for x := 1 to 51 do
      for y := 1 to 51 do
        Image1.Canvas.Pixels[x,y]:=Image7.Canvas.Pixels[x,y];

Получаю ошибку "Can only modify an image if it contains a bitmap".

Файл Now.jpg получаю, после использования функции, которая делает скриншот из WebBrowser1;

Вот сама функция, которая делает скриншот:

procedure TForm1.WebBrowserScreenShot(const wb: TWebBrowser; const fileName: TFileName);
var
viewObject : IViewObject;
r : TRect;
bitmap : TBitmap;
begin
if wb.Document <> nil then
begin
wb.Document.QueryInterface(IViewObject, viewObject) ;
if Assigned(viewObject) then
try
bitmap := TBitmap.Create;
try
r := Rect(0, 0, wb.Width, wb.Height) ;
bitmap.Height := wb.Height;
bitmap.Width := wb.Width;
viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Application.Handle, bitmap.Canvas.Handle, @r, nil, nil, 0) ;
with TBitMap.Create do //Тут было TJPEG.Create;
try
Assign(bitmap) ;
SaveToFile(fileName) ;
finally
Free;
end;
finally
bitmap.Free;
end;
finally
viewObject._Release;
end;
end;
end;

Вроде делаю скриншот в формате бмп, загружаю бмп. А копировать не получается. До этого делал скриншот экрана, так:

    bmp := TBitmap.Create;
    bmp.Width := 10;
    bmp.Height := 10;
    BitBlt(bmp.Canvas.Handle, 0,0, 10, 10,
    GetDC(0), X,Y,SRCCOPY);
    Image1.Width := Screen.Width;
    Image1.Height := Screen.Height;
    Image1.Picture.Assign(bmp1);
    bmp.Free;

Копировал этой функцией, и все получалось

for x := 1 to 51 do
      for y := 1 to 51 do
        Image7.Canvas.Pixels[x,y]:=Image1.Canvas.Pixels[x,y];

Кто знает в чем может быть проблема? помогите плз

[phomm]

имейджи обладают свойством picture , вот с ним и работай
image7.picture := image1.picture;

[Florento]

Если ставить просто Image1.Picture, то он пишет ошибку. Что типа того нельзя так копировать

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

Image1.Picture.Assign(Image7.Pictur e);
или же аналогично но с Picture.Graphic(или Graphics, не помню)

[volod3000]

А, вот так не пробовали :

Image1.Picture.Bitmap.Assign (bmp)

[Florento]

Сейчас попробую. Но мне надо ее не просто скопировать.

Из большой картинки определенные пиксели скопировать в маленькую. Так же нужно будет получать доступ к цвету пикселя.