Zeit im Label aktualisieren

[tom_po]

hab's jetzt so erweitert, jedoch, die Uhrzeit ändert sich nicht, wenn ich eine 2. Buchung mache, weder im Label6, noch in der Datenbank, dort wird immer mit derselben Uhrzeit gebucht, wie die Form aufgerufen wurde:

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);     //Eingang Material
var
  dt: TDateTime;
  fs: TFormatSettings;
begin
  // weil du im Edit keinen Dezimalpunkt verwendest:
  fs.DecimalSeparator := ',';
  dt := DateTimePicker1.DateTime;
  with dbisamquery1 do
  begin
    SQL.Text := 'insert into movestock(code, eingang, datum) '
              + 'values (:code, :eingang, :datum)';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('eingang').Value := StrToFloat(edit1.Text);
    Params.ParamByName('datum').Value := dt;
    ExecSQL;

    SQL.Text := 'update stockfabric set stock = stock + :stock where code =  :code';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('stock').Value := StrToFloat(edit1.Text);
    ExecSQL;
    SQL.Text := 'update stockfabric set date = :datum where code =  :code';
    Params.ParamByName('datum').Value := dt;
    ExecSQL;
  end;
  Datetimepicker1.Date:=now;
  label6.Caption := datetimetostr(Datetimepicker1.dateTime);
  button3.Click;
end;