//PaintBox1.Canvas.FillRect(Form1.PaintBox1.ClientRect);
  //Image1.Invalidate;

  // PS. --> ein Bitmap ist in Image1.Picture.Bitmap geladen

  for i:=0 to nLines-1 do
  begin
    Image1.Picture.Bitmap.Canvas.Pen.Color := rgb( lines[i].color, lines[i].color, lines[i].color);
    With Image1.Picture.Bitmap.Canvas do
    begin
      MoveTo(akposx+round(plot[lines[i].a].x), akposy+round(plot[lines[i].a].y));
      LineTo(akposx+round(plot[lines[i].b].x), akposy+round(plot[lines[i].b].y));
    end;
  end;