Wie "alten Graphen" löschen bevor "neuer" gezeichn

[Eloare]

Code:

procedure TForm1.BerechneButtonClick(Sender: TObject);
  var a,b:real;
      c,d,e,f,g,h,i,j:integer;
      Bitmap : TBitmap;

  begin
    Image1.Picture.LoadFromFile('C:\...\blanc.bmp');
    Image2.Picture.LoadFromFile('C:\...\erlaeuterung.bmp');
    a:=StrToInt(aedit.text);
    b:=StrToInt(bedit.text);
    c:=trunc((a*(-10))+433);
    d:=trunc(353);
    e:=trunc((a*10)+433);
    f:=trunc(353);
    drawFunc(a,b);
    gehe_nach(c,d);
    linie(e,f);
    g:=trunc(433);
    h:=trunc((b*10)+353);
    i:=trunc(433);
    j:=trunc((b*(-10))+353);
    gehe_nach(g,h);
    linie(i,j);
    if (a>b) then
      begin
      Bitmap := TBitmap.create;
      Bitmap.LoadFromFile('C:\...\Z.bmp');
      form1.Image1.canvas.draw(trunc(wurzel(quadrat(a)-quadrat(b)))+433,353,Bitmap);
      end
    else
      begin
      Bitmap := TBitmap.create;
      Bitmap.LoadFromFile('C:\...\Z.bmp');
      form1.Image1.canvas.draw(423,trunc(wurzel(quadrat(a)-quadrat(b)))+353,Bitmap);
      end;




  end;

end.

Das sind die allerletzten Zeilen, folglich dürfte eigentlich nix mehr "drübergemacht" werden.



mfg Eloare