제가 질문의 요지를 잘못 파악한지도 모르겠습니다만...

원본 이미지를 복사해서 원본보다 Width, Height가 여백만큼 큰 Canvas에

Top, Left를 여백만큼 주고 붙여넣기 하면 해결되는 문제로 보입니다.

<!--CodeS-->
procedure TfrmMarginTest.btnSetMarginClick(Sender: TObject);
var
ABmp: TBitmap;

const
MARGINTOP = 10;
MARGINLEFT = 10;
begin
try

ABmp := TBitmap.Create;

ABmp.Width := ImgSource.Width + MARGINLEFT;
ABmp.Height := ImgSource.Height + MARGINTOP;

ABmp.Canvas.Brush.Color := clWhite;
ABmp.Canvas.FillRect( Rect(0, 0, ABmp.Width, ABmp.Height ) );
ABmp.Canvas.CopyRect( Rect( MARGINLEFT, MARGINTOP, ABmp.Width, ABmp.Height),
ImgSource.Canvas,
Rect(0, 0, ImgSource.Width, ImgSource.Height) );

ImgSource.Width := ABmp.Width;
ImgSource.Height := ABmp.Height;

ImgSource.Picture.Bitmap.Assign(ABmp);

finally
if Assigned( ABmp ) then FreeAndNil( ABmp );
end;
end;
<!--CodeE-->