diff --git a/fcl/db/dataset.inc b/fcl/db/dataset.inc
index c792fa1062..5d28507e51 100644
--- a/fcl/db/dataset.inc
+++ b/fcl/db/dataset.inc
@@ -73,7 +73,7 @@ end;
 
 Procedure TDataset.BindFields(Binding: Boolean);
 
-var i, j, FieldIndex: Integer;
+var i, FieldIndex: Integer;
     FieldDef: TFieldDef;
 begin
   {
@@ -1493,13 +1493,11 @@ Var
   end;
 
 Var
-  PrevRecordCount : Integer;
   Scrolled : Integer;
 
 begin
   CheckBrowseMode;
   Result:=0; TheResult:=0;
-  PrevRecordCount:=FRecordCount;
   If ((Distance>0) and FEOF) or
      ((Distance<0) and FBOF) then
     exit;
diff --git a/fcl/db/datasource.inc b/fcl/db/datasource.inc
index 26c3385168..c8d0dd40c0 100644
--- a/fcl/db/datasource.inc
+++ b/fcl/db/datasource.inc
@@ -190,8 +190,6 @@ end;
 
 Function TDataLink.GetRecordCount: Integer;
 
-Var D: TDataSet;
-
 begin
   Result:=Dataset.FRecordCount;
   If Result>BufferCount then
diff --git a/fcl/db/db.pp b/fcl/db/db.pp
index 9661f42490..cd7a0a6656 100644
--- a/fcl/db/db.pp
+++ b/fcl/db/db.pp
@@ -188,7 +188,6 @@ type
   Private
     FAlignMent : TAlignment;
     FAttributeSet : String;
-    FBuffers : ppchar;
     FCalculated : Boolean;
     FCanModify : Boolean;
     FConstraintErrorMessage : String;
@@ -883,7 +882,6 @@ type
     FBufferCount: Longint;
     FCalcBuffer: PChar;
     FCalcFieldsSize: Longint;
-    FCanModify: Boolean;
     FConstraints: TCheckConstraints;
     FDisableControlsCount : Integer;
     FDisableControlsState : TDatasetState;
@@ -893,7 +891,6 @@ type
     FEOF: Boolean;
     FEnableControlsEvent : TDataEvent;
     FFieldList : TFields;
-    FFieldCount : Longint;
     FFieldDefs: TFieldDefs;
     FFilterOptions: TFilterOptions;
     FFilterText: string;
@@ -1835,16 +1832,12 @@ function TIndexDefs.GetIndexForFields(const Fields: string;
 var
   i, FieldsLen: integer;
   Last: TIndexDef;
-  Name: string;
-  Flds: string;
 begin
   Last := nil;
   FieldsLen := Length(Fields);
   for i := 0 to Count - 1 do
   begin
     Result := Items[I];
-    Name := Result.Name;
-    Flds := Result.Fields;
     if (Result.Options * [ixDescending, ixExpression] = []) and
        (not CaseInsensitive or (ixCaseInsensitive in Result.Options)) and
        AnsiSameText(Fields, Result.Fields) then
diff --git a/fcl/db/fields.inc b/fcl/db/fields.inc
index 8ef106a716..2002ac7678 100644
--- a/fcl/db/fields.inc
+++ b/fcl/db/fields.inc
@@ -57,8 +57,6 @@ end;
 
 Destructor TFieldDef.Destroy;
 
-Var I : longint;
-
 begin
   Inherited destroy;
 end;
@@ -2205,9 +2203,6 @@ end;
 
 Procedure TFields.CheckFieldName (Const Value : String);
 
-Var I : longint;
-    S : String;
-
 begin
   If FindField(Value)<>Nil then
     DataBaseErrorFmt(SDuplicateFieldName,[Value],FDataset);