[NumLock]

Код:

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    LabeledEdit1: TLabeledEdit;
...
procedure TForm1...
begin
  DBGrid1.DataSource.DataSet.Append;
  DBGrid1.DataSource.DataSet.FieldByName('EditText').AsString:=Edit1.Text;
  DBGrid1.DataSource.DataSet.FieldByName('CheckBoxChecked').AsBoolean:=CheckBox1.Checked;
  DBGrid1.DataSource.DataSet.FieldByName('LabeledEditText').AsString:=LabeledEdit1.Text;
  DBGrid1.DataSource.DataSet.Post;
end;