procedure TFormCasleSiege.setImage(myImage: string);
var destRectKL, destRect: TRect;
begin
destRectKL.Create(0,0,288,140);
destRect.Create(0,0,90,139);
ImgList.Draw(imgTemp2.canvas,0,0,0);
imgTemp2.Canvas.StretchDraw(destRectKL,imgTemp2.Picture.Graphic);
ImgCastles.Canvas.CopyRect(destRectKL,imgTemp2.Canvas,destRectKL);
end;