Zeit im Label aktualisieren

[tom_po]

bin jetzt selbst darauf gekommen, jetzt gehts so:

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:=Date;
  Datetimepicker1.Time:=Time;
  label6.Caption := datetimetostr(Datetimepicker1.dateTime);
  button3.Click;
end;

verstehe allerdings nicht, wieso es mit dienem Vorschlag (now) nicht geht!!??