Zvolte zkrátka takovou kombinaci, která bude vhodně doplňovat grafický ráz vaší aplikace. Ukažme si tedy vlastní kód:
.
.
.

private
{ Private declarations }
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;

.
.
.


procedure TForm1.WMNCPaint(var Msg:TWMNCPaint);
var
dc: hDc;
Pen: hPen;
OldPen: hPen;
OldBrush: hBrush;

begin
inherited;
dc := GetWindowDC(handle);
Msg.Result := 1;
Pen := CreatePen(PS_SOLID, 3, RGB (0,0,0));
OldPen := SelectObject(dc, Pen);
OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
Rectangle(dc, 0, 0, Form1.Width, Form1.Height);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
ReleaseDC(Handle, Canvas.Handle);
end;
Důležitá je pro nás funkce CreatePen. První parametr určuje typ výplně čáry (zde nastavena plná výplň, jiná se asi pro rámeček moc nehodí). Druhý parametr (v našem příkladu je to číslo 3) udává tloušťku rámečku a třetím parametrem je barva v klasické RGB trojkombinaci, tj. hodnoty 0–255 (v naší ukázce je to konkrétně černá). Vrhněte se tedy do experimentování.