Отрисовка в OPENGL крадётся память

procedure TFormSapr.WMMouseWheel(var Message: TWMMouseWheel);
var
  Gradient:integer;
  Gradient_:double;
  i_PerSapX_,i_PerSapY_:double;
  Msg1: TWMPaint;
begin
  XranFlag_Cdvig:=Panel_Visual.Flag_Cdvig;
 
  i_MiddleButton:=i_MiddleButton+message.WheelDelta;
  MiddleButton:=Message.WheelDelta;
 
  Panel_Visual.i_Scale_Old:=Panel_Visual.i_Scale;
if FormSapr.Panel_Visual_Raskroj1<>nil then
  Panel_Visual_Raskroj1.i_Scale_Old:=Panel_Visual_Raskroj1.i_Scale
else
  Panel_Visual_Raskroj2.i_Scale_Old:=Panel_Visual_Raskroj2.i_Scale;
 
if  PageControl1.TabIndex=1 then
  Gradient_:=1000/Round(Panel_Visual.i_Scale_Old*100)
else
if  PageControl1.TabIndex=3 then
begin
if FormSapr.Panel_Visual_Raskroj1<>nil then
  Gradient_:=1000/Round(Panel_Visual_Raskroj1.i_Scale_Old*100)
else
  Gradient_:=1000/Round(Panel_Visual_Raskroj2.i_Scale_Old*100); //
end;
     if MiddleButton<>0 then
     if MiddleButton>0 then
     begin
  LMDLabel_Message.Caption:='УВЕЛИЧЕНИЕ';
 
          if  PageControl1.TabIndex=1 then
          begin
            Panel_Visual.i_Scale:=Panel_Visual.i_Scale+1/Gradient_;
            Panel_Visual.Scale_MiddleButton(i_PerSapX_,i_PerSapY_);
          end
          else
          if  PageControl1.TabIndex=3 then
          begin
            if FormSapr.Panel_Visual_Raskroj1<>nil then
            begin
              Panel_Visual_Raskroj1.i_Scale:=Panel_Visual_Raskroj1.i_Scale+1/Gradient_;
              Panel_Visual_Raskroj1.Scale_MiddleButton(i_PerSapX_,i_PerSapY_);
            end
            else
            begin
              Panel_Visual_Raskroj2.i_Scale:=Panel_Visual_Raskroj2.i_Scale+1/Gradient_;
              Panel_Visual_Raskroj2.Scale_MiddleButton(i_PerSapX_,i_PerSapY_);
 
            end;
          end;
     end
     else
     if MiddleButton<0 then
     begin
  LMDLabel_Message.Caption:='УМЕНЬШЕНИЕ';
          if  PageControl1.TabIndex=1 then
          begin
              Panel_Visual.i_Scale:=Panel_Visual.i_Scale-1/Gradient_;
              Panel_Visual.Scale_MiddleButton(i_PerSapX_,i_PerSapY_);
          end
          else
          if  PageControl1.TabIndex=3 then
          begin
            if FormSapr.Panel_Visual_Raskroj1<>nil then
             begin
              if Panel_Visual_Raskroj1.i_Scale>0.01 then
              Panel_Visual_Raskroj1.i_Scale:=Panel_Visual_Raskroj1.i_Scale-1/Gradient_;
              Panel_Visual_Raskroj1.Scale_MiddleButton(i_PerSapX_,i_PerSapY_);
             end
             else
             begin
              if Panel_Visual_Raskroj2.i_Scale>0.01 then
              Panel_Visual_Raskroj2.i_Scale:=Panel_Visual_Raskroj2.i_Scale-1/Gradient_;
              Panel_Visual_Raskroj2.Scale_MiddleButton(i_PerSapX_,i_PerSapY_);
             end;
 
          end;
     end;
   if FormSapr.Panel_Visual_Raskroj1<>nil then
     Panel_Visual_Raskroj1.i_Scale_Old:=Panel_Visual_Raskroj1.i_Scale
   else
     Panel_Visual_Raskroj2.i_Scale_Old:=Panel_Visual_Raskroj2.i_Scale;
     Panel_Visual.Flag_Cdvig:=XranFlag_Cdvig;
 
      Label_MemoryVirtClick; // Сколько сжирает памяти
end;

procedure TcPanel_Figures.Scale_MiddleButton(ai_PerSapX, ai_PerSapY: double);
var
   Dx,Dy:double;
//   Msg1: TWMPaint;
 
begin
 
     {Down}
     i_Perenoc_OldX:=MouseX;
     i_Perenoc_OldY:=MouseY;
 
     {Up}
     i_PerenocX:=i_PerSapX+2*(Width/2-i_Perenoc_OldX)/(Width);
     i_PerenocY:=i_PerSapY-2*(Height/2-i_Perenoc_OldY)/(Height);
     i_PerSapX:=i_PerenocX;
     i_PerSapY:=i_PerenocY;
 
      CentrePointMaschtab.X:=Width/2;
      CentrePointMaschtab.Y:=Height/2;
 
      i_PerenocX:=(i_PerSapX-2*(CentrePointMaschtab.X-(Width)/2)/(Width))*i_Scale/i_Scale_Old;
      i_PerenocY:=(i_PerSapY-2*(CentrePointMaschtab.Y-(Height)/2)/(Height))*i_Scale/i_Scale_Old;
      i_PerSapX:=i_PerenocX;
      i_PerSapY:=i_PerenocY;
 
 
     {Down}
     i_Perenoc_OldX:=Width/2;
     i_Perenoc_OldY:=Height/2;
 
     {Up}
     i_PerenocX:=i_PerSapX+2*(MouseX-i_Perenoc_OldX)/(Width);
     i_PerenocY:=i_PerSapY-2*(MouseY-i_Perenoc_OldY)/(Height);
     i_PerSapX:=i_PerenocX;
     i_PerSapY:=i_PerenocY;
//      RePaint;
        WMPaint(Msg1);
 
      EditValue1.Text:=FLoatToStr(Round(i_Scale*100));//100
 
end;

procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;