Вывод в dst

procedure TForm5.FormShow(Sender: TObject);
var
sum:integer;
ch:string;
x,name2:integer;
begin
with DM1 do
begin
  dbBook.Connected:=True;
  dstBook.Active:=True;
  dstKlient.Active:=True;
  dstFormularR.Active:=True;
  dstBook.First;
   while not DM1.dstBook.Eof do
   begin
   dstKlient.First;
   sum:=dstBook.FieldByName('KOLVO').AsInteger;
   name2:=dstBook.FieldByName('ID_BOOK').AsInteger;
        while not DM1.dstKlient.Eof do
         begin
         dstFormularR.First;
            while not DM1.dstFormularR.Eof do
                begin
                  ch:=dstFormularR.FieldByName('CHECK').AsString;
                  x:=dstFormularR.FieldByName('BOOK').AsInteger;
                  if (name2=x) then
                  begin
                      if (ch = 'DA') then
                        sum:=sum+1
                      else
                      if (ch = 'NET') then
                          sum:=sum-1;
                  end;
                  dstFormularR.Next;
                end;
         dstKlient.Next;
         end;
     dstBook.Edit;
     dstBook.FieldValues['KOLVO']:=sum;
     dstBook.Post;
     dstBook.Next;
    end;
end;
end;