Eintrag in DBGrid verschwindet

[derklausi]

Hallo Zusammen,

ich habe eine Frage.

Ich habe eine kleine Simple Eingabemaske gemacht die mit einer Access Datenbank verknüpft ist. Diese wird an einem Touch PC verwendet.

Dazu habe ich ein DBGrid angelegt und mir entsprechend Tedit felder + Button hinterlegt und mit den einzelnen Feldern verknüpft.

Wenn ich nun auf die Button Drücke werden jeweils Datum und Uhrzeit eingetragen.

Wenn ich nun aber eine andere eingabe in ein anderes Tedit Feld mache verschwinden die eingaben die ich mit dem Button ausgelöst habe. Anderums genauso.

Ein Bild ist im Anhang, und hier der Code

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids,
  Data.Win.ADODB, Vcl.StdCtrls, Data.Bind.EngExt, Vcl.Bind.DBEngExt,
  System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors, Data.Bind.Components,
  Data.Bind.DBScope, Vcl.ExtCtrls, Vcl.DBCtrls;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    BindSourceDB1: TBindSourceDB;
    BindingsList1: TBindingsList;
    LinkControlToField2: TLinkControlToField;
    LinkControlToField3: TLinkControlToField;
    LinkControlToField1: TLinkControlToField;
    LinkControlToField4: TLinkControlToField;
    LinkControlToField5: TLinkControlToField;
    LinkControlToField6: TLinkControlToField;
    LinkControlToField7: TLinkControlToField;
    LinkControlToField8: TLinkControlToField;
    LinkControlToField9: TLinkControlToField;
    LinkControlToField10: TLinkControlToField;
    LinkControlToField11: TLinkControlToField;
    LinkControlToField12: TLinkControlToField;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Edit6Click(Sender: TObject);
    procedure Edit7Click(Sender: TObject);
    procedure Edit8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
edit6.Text :=  FormatDateTime('hh:nn:ss', now)
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Edit2.Text := FormatDateTime('dd.mm.yyyy', now);
end;

procedure TForm1.Edit6Click(Sender: TObject);
begin
edit6.Text := FormatDateTime('hh:nn:ss', now)
end;

procedure TForm1.Edit7Click(Sender: TObject);
begin
edit7.Text := FormatDateTime('hh:nn:ss', now)
end;

procedure TForm1.Edit8Click(Sender: TObject);
begin
edit8.Text := FormatDateTime('hh:nn:ss', now)
end;

end.

Vielen Dank !!