مشكلة عند إكمال عملية التنفيذ

السلام عليكم ورحمة الله تعالى وبركاته

شكرًا جزيلاً لك يا أخ طلال على الرد والتوجيه القيم

فعلاً لقد وجدت غايتي في الموضوع الذي اشرت الي

والآن عندي مشكلة أخرى وهي : هذا التحذير الذي يخرج لي عندما اضع هذا الكود

ارجو الإطلاع على الكود وتوضيح الخطأ

procedure TForm2.BitBtn2Click(Sender: TObject);
Var tCDE,tPERIODE:String;
	tMt:real;
begin
  with DM_1 do begin
	Query1.Open;
	query1.First;
	while not Query1.Eof do
	begin
	{Keep Previous values}
	  tMt:=Query1MT.AsFloat;
	  tCDE:=Query1CDE.AsString;
	  tPERIODE:=Query1PERIODE.AsString;
	  Query1.Next;

	  if TDest.Locate('CDE',vararrayof([tCDE]),[locaseinsensitive,lopartialkey]) then
	  begin
		TDest.Edit;
		if tPERIODE='1' then
		TDestMT_PR01.AsFloat:=tMt+TDestMT_PR01.AsFloat;
		if tPERIODE='2' then
		TDestMT_PR02.AsFloat:=tMt+TDestMT_PR02.AsFloat;
		TDestTOTAL.AsFloat:=TDestMT_PR01.AsFloat+TDestMT_PR02.AsFloat;
		TDest.Post;
		end
	  else
		begin
		TDest.Insert;
		TDestCDE.AsString:=tCDE;
	  if tPERIODE='1' then
		begin
		TDestMT_PR01.AsFloat:=tMt;  TDestMT_PR02.AsFloat:=0;
		end;
	  if tPERIODE='2' then
		begin
		TDestMT_PR02.AsFloat:=tMt;
		TDestMT_PR01.AsFloat:=0;
		end;
		TDestTOTAL.AsFloat:=TDestMT_PR01.AsFloat+TDestMT_PR02.AsFloat;
		TDest.Post;
	  end;
	end;
	  Query2.Close;
	  Query2.Open;
	  DDest.DataSet:=query2;
  end;
end;

التحذير