Как установить в TEdit фразу "инкрементный поиск" с последующим его очищением на ввод символов?

[SkAndrew]

Добрый день!

Есть необходимость используя компонент TEdit создать инкрементный поиск. Но, речь не о поиске. Как можно программно установить в поле компонента TEdit фразу "инкрементный поиск" шрифтом серого цвета, а когда в нем оказывается курсор, то эта надпись удалялась бы и поле компонента очищалось для записи (введения нужных символов поиска), но уже цвет шрифта был обычный. Этот эффект реализован в Висте при заполнении пароля на вход в систему. Спасибо всем за любую идею.

[mihali4]

Даже странно видеть такой вопрос...

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
(Sender as TEdit).Clear;
(Sender as TEdit).Font.Color:=clBlack;
(Sender as TEdit).SetFocus;
end;

Предварительно, хоть на этапе проектирования, устанавливаем эдиту нужный цвет шрифта (clSilver) и нужный текст.
"Программно":

Edit1.Font.Color:=clSilver;
Edit1.Text:='инкрементный поиск';

Странно это, однако...

[SunKnight]

Можно еще, конечно, и свой компонент создать (если часто будете использовать, что б не заморачиваться с выше указанным методом) на основе класса TEdit.

[SkAndrew]

Спасибо всем!