以编程方式在tgpimage上绘制

你不需要 TBitmap 为此。
你只需要使用 TGPGraphics 与 TGPImage 画上 TGP-图像 表面。

下面是一个非常简单的例子:

uses GDIPOBJ, GDIPAPI, GDIPUTIL;

procedure TForm1.Button1Click(Sender: TObject);
var
  b: TGPBitmap;
  g: TGPGraphics;
  pen: TGPPen;
  encoderClsid: TGUID;
begin
  b := TGPBitmap.Create('D:\in.png');
  try
    g := TGPGraphics.Create(b);
    try
      pen := TGPPen.Create(MakeColor(255, 255, 0), 3);
      try
        { Draw a yellow Rectangle }
        g.DrawRectangle(pen, MakeRect(0, 0, 200, 200));
        GetEncoderClsid('image/png', encoderClsid);
        b.Save('D:\out.png', encoderClsid);
      finally
        pen.Free;
      end;
    finally
      g.Free;
    end;
  finally
    b.Free;
  end;
end;