* Solved bug #9503

git-svn-id: trunk@9120 -

packages/fcl-db/src/fields.inc

@@ -380,7 +380,7 @@ end;
 procedure TField.FocusControl;
 
 begin
-  FDataSet.DataEvent(deFocusControl,ptrint(Self));
+  FDataSet.DataEvent(deFocusControl,ptrint(@Self));
 end;
 
 procedure TField.FreeBuffers;