[NumLock]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TLabeledEdit.Create(Self) do
  begin
    Parent:=Self;
    Left:=50;
    Top:=50;
    EditLabel.Caption:='Caption';
    Text:='Text';
  end;
end;