Clear

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TLabeledEdit Clear";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример метки, совмещенной с полем редактирования";

// LabeledEdit
led=new TLabeledEdit(frm);
led.EditLabel.Caption="Метка: ";
led.BorderStyle=bsSingle;
led.Left=10;
led.Width=frm.ClientWidth-led.Left*2;
led.Top=(stb.Top-led.Height-led.EditLabel.Height)/2;

// Кнопка
btn=new TButton(frm);
btn.Caption="Очистить";
btn.Width+=20;
btn.Left=led.Left+led.Width-btn.Width;
btn.Top =stb.Top-btn.Height-10;
btn.Hint="Очистить поле редактирования";
btn.ShowHint=true;
btn.OnClick=btn_Click;

led.SetFocus();
frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  led.SetFocus();
  led.Clear();
}