procedure TForm1.Button1Click(Sender: TObject);
      var
  myDate : TDateTime;

begin


myDate:=now; //узнать текужую дату время

//моя версия добовления, типа неверная
//TestConnection.ExecSQL('insert into table1 ("время","Событие","Команда") values (' + QuotedStr(FormatdateTime('dd/mm/yyyy hh:nn:ss',myDate)) + ',' + QuotedStr(Edit2.Text) + ',' + QuotedStr(Edit3.Text) + ')'); //добавить

if FDTabletable1.Locate('время',myDate,[]) then    //поиск такой же даты
  ShowMessage('Такое время уже есть в списке') else
begin
//версия вставки типа правильная
FDTabletable1.SQL.Text := 'INSERT INTO table1 ("время","Событие","Команда") VALUES (:EventDate, :Event, :Command)';
FDTabletable1.ParamByName('EventDate').AsDateTime:= myDate;
FDTabletable1.ParamByName('Event').AsString     := Edit2.Text;
FDTabletable1.ParamByName('Command').AsString   := Edit3.Text;

FDTabletable1.ExecSQL;
FDTabletable1.Open;
end;
//FDTabletable1.RefireSQL;  //обновить таблицу
//FDTabletable1.Refresh;  //обновить таблицу
//WaitForSingleObject(, 20);

end;