fcl-db: base: cosmetic (char-case)

git-svn-id: trunk@42672 -

packages/fcl-db/src/base/db.pas

@@ -1563,7 +1563,7 @@ type
     function  GetRecordCount: Longint; virtual;
     function  GetRecNo: Longint; virtual;
     procedure InitFieldDefs; virtual;
-    procedure InitFieldDefsFromfields;
+    procedure InitFieldDefsFromFields;
     procedure InitRecord(Buffer: TRecordBuffer); virtual;
     procedure InternalCancel; virtual;
     procedure InternalEdit; virtual;