+ Merged fix 1116

git-svn-id: branches/fixes_2_0@1117 -

fcl/db/fields.inc

@@ -2447,7 +2447,7 @@ Var I : longint;
 begin
   T:=Value;
   Repeat
-    I:=Pos(T,';');
+    I:=Pos(';',T);
     If I=0 Then I:=Length(T)+1;
     S:=Copy(T,1,I-1);
     Delete(T,1,I);