diff --git a/components/zeosdbo/src/dbc/ZDbcConnection.pas b/components/zeosdbo/src/dbc/ZDbcConnection.pas
index daa7f9d1..597b4ba2 100644
--- a/components/zeosdbo/src/dbc/ZDbcConnection.pas
+++ b/components/zeosdbo/src/dbc/ZDbcConnection.pas
@@ -236,8 +236,8 @@ type
     function GetCurrentValue: Int64; virtual;
     function GetNextValue: Int64; virtual;
 
-    function GetCurrentValueSQL: string; virtual; abstract;
-    function GetNextValueSQL: string; virtual; abstract;
+    function GetCurrentValueSQL: string; virtual;
+    function GetNextValueSQL: string; virtual;
 
     function GetConnection: IZConnection; virtual;
 
@@ -1069,12 +1069,12 @@ begin
   Result := 0;
 end;
 
-{
+
 function TZAbstractSequence.GetCurrentValueSQL: String;
 begin
- result:='IMPLEMENT';
+  Result := IntToStr(GetCurrentValue);
 end;
-}
+
 
 {**
   Gets the next unique key generated by this sequence.
@@ -1085,12 +1085,11 @@ begin
   Result := 0;
 end;
 
-{
+
 function TZAbstractSequence.GetNextValueSQL: String;
 begin
- result:='IMPLEMENT';
+  Result := IntToStr(GetNextValue);
 end;
-}
 
 {**
   Sets the block size for this sequence.