Hilfstext innerhalb einer Combobox anzeigen

[NormanNG]

Hi,

mit folgendem Quelltext kann ich in einem tEdit einen Hilfstext anzeigen, wenn noch keine Eingabe gemacht wurde.

Delphi-Quellcode:

procedure TMyEdit.WMPaint(var Message: TWMPaint);
var
  Canvas: TControlCanvas;
begin
  inherited;

  if (Self.Text <> '') then 
    Exit;

  Canvas := TControlCanvas.Create;
  try
    Canvas.Control := Self;
    Canvas.Brush.Color := Color;
    Canvas.Font.Color := clSilver;
    Canvas.Font.Name := 'Arial';
    Canvas.Font.Style := [fsBold];
    Canvas.TextOut(2,2, FHelptext );
  finally
    Canvas.Free;
  end;
end;

Wenn ich das aber genauso mit einer tCombobox versuche, wird der Text nur angezeigt, wenn die Combo fokusiert ist. Was muss ich anders machen?