Боюсь, что это невозможно при использовании любого неэзотерического подхода.
Однако я думаю, что вы можете использовать объект DC_PEN
stock и функцию SetDCPenColor
, например:
SelectObject(dc, GetStockObject(DC_PEN));
SetDCPenColor(dc, clGreen);
Rectangle(dc, 10, 10, 200, 200);
SetDCPenColor(dc, clRed);
Rectangle(dc, 300, 300, 500, 500);
в синтаксисе Delphi.