[v1s2222]

А Вы уверены, что вам надо именно компонент? Если да, то почитайте нужную литературу и переделайте стандартный TEdit. Иначе - в раздел Работа

А вообще это можно сделать хоть так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := 'Введите ДР';
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if(Length(Edit1.Text) = 0) then // или if(Edit1.Text = '') then ...
    Edit1.Text := 'Введите ДР';
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  if(Edit1.Text = 'Введите ДР') then
    Edit1.Clear;
end;