I'm doing something wrong, i want to stretch draw Source[4] (TBitmap) in dest (TBitmap)
function DrawBitmap(Source: TBmpArray; DestWidth, DestHeight, BorderWidth, BorderHeight: integer): TBitmap;
var
dest: TBitmap;
image, temp: TLazIntfImage;
imagecanvas: TLazCanvas;
begin
dest := TBitmap.Create;
dest.Width := DestWidth;
dest.Height := DestHeight;
image := TLazIntfImage.Create(dest.Width, dest.Height);
image.LoadFromBitmap(dest.Handle, 0);
imagecanvas := TLazCanvas.Create(Image);
imagecanvas.Interpolation := TFPSharpInterpolation.Create;
//center
temp := TLazIntfImage.Create(Source[4].Width, Source[4].Height);
temp.LoadFromBitmap(Source[4].Handle, 0);
imagecanvas.StretchDraw(BorderWidth, BorderHeight, DestWidth - BorderWidth, DestHeight - BorderHeight, temp);
temp.Free;
imagecanvas.Free;
image.Free;
...