procedure TForm1.Button2Click(Sender: TObject);
  var
   dt: TDateTime;
begin
dt:= DatetimePicker1.DateTime;
  with Adoquery1 do
  begin
    SQL.Text := 'Insert Into Tab_Insert( insert_nr, Insert_name, wert1, wert2, Result, Date)
values(:insert_nr, :insert_name, :wert1, :wert2, :Result, :Date)';
    Parameters.ParamByName('Insert_nr').Value := edit1.Text;
    Parameters.ParamByName('Insert_name').Value:= Edit2.Text;
    Parameters.ParamByName('wert1').Value:= Edit3.Text;
    Parameters.ParamByName('wert2').Value:= Edit4.Text;
    Parameters.ParamByName('result').Value:= Edit5.Text;
    Parameters.ParamByName('date').Value := dt;
    ExecSQL;

  end;
end;