if SameTime(StrToTime(WL.Strings[1])-StrToTime(MyTime),StrToTime('00:10:00')) = true then
                  begin
                    t.Open;
                    t.Append;
                    for i := 0 to WL.Count - 1 do
                    begin
                      t.Fields[i].Value := WL.Strings[i]; //Einträge in DB einfügen
                    end;
                    t.Post;
                    t.Close;
                    time := WL.Strings[1];
                  end;

WL.Delimiter := #9;
          WL.DelimitedText := Werte;