[angvelem]

Всё то, только для вашего варианта пропущена команда.

Код:

WM_CTLCOLOREDIT:
      begin
        SetBkColor(wParam, $00);
        SetTextColor(wParam, $ffffff);
        Result:=GetStockObject(BLACK_BRUSH);
        Exit;
      end;