[angvelem]

У тебя столько ляпов в программе, что для начала их исправь. К примеру:

Код:

procedure MyNCPaint(Wnd : HWND; Msg: UINT; wParam, lParam : Longint);
var
  R, R1   : TRect;
  ps      : TPaintStruct;
  Context : HDC;
  Font    : HFONT;
  Pen     : HPEN;
  Brush   : HBRUSH;
begin
  Context := GetWindowDC(Wnd);
  GetClientRect(Wnd, R);

  SelectObject(Context, Pen);    // А ты создавал?
  selectobject(context, brush);  // А ты создавал?

  ExtFloodFill(context, 0, 50, brush, FLOODFILLSURFACE);

  DeleteObject(pen);             // Удаляем несозданное?
  DeleteObject(brush);           // Удаляем несозданное?

  Ellipse(Context, 600, 0, 630, 30);
  Font := CreateFont(30, 50, 0, 0, FW_Normal, 0, 0, 0,
    DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
    DEFAULT_PITCH, 'Tahoma');
  SelectObject(Context, Font);
  DrawText(Context, 'Hey Arnold', -1, R, DT_LEFT);

  DeleteObject(Font);         // Удаляем выбранный в контекст объект?
  ReleaseDc(hwnd, context);
end;

и это, только маленькая толика из всех ляпов.