- set FDatasource to nil in TDatalink.Create

fcl/db/datasource.inc

@@ -7,6 +7,7 @@ Constructor TDataLink.Create;
 begin
   Inherited Create;
   FBufferCount:=1;
+  FDataSource := nil;
   FDatasourceFixed:=False;
 end;