anchor.diff:    inherited;
     if  (Text = '') and (not Focused) then
     begin
  +    FCanvas.Handle := Message.DC;
       FCanvas.Font := Font;//FTextHintFont;
       FCanvas.Font.Color := clGrayText;
       FCanvas.TextOut(1, 1, FTextHint);
  
positive.code:   inherited;
    if  (Text = '') and (not Focused) then
    begin
      FCanvas.Font := Font;//FTextHintFont;
      FCanvas.Font.Color := clGrayText;
      FCanvas.TextOut(1, 1, FTextHint);
  
negative.code:   inherited;
    if  (Text = '') and (not Focused) then
    begin
      FCanvas.Handle := Message.DC;
      FCanvas.Font := Font;//FTextHintFont;
      FCanvas.Font.Color := clGrayText;
      TextHeight := FCanvas.TextHeight('MLZ'); //Dummy Text to determine Height
  