1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  var Betriebsspannung :real;
      Widerstand :real;
      Kondensator :real;
      Tau :real;
      Zeit :real;
      i :integer;
      igenau :real;
      Uc :real;
      k :integer;
      Schritte :integer;
      Kondensatorspannung : array [0..32000] of double;
      Pixelhoehe :real;
      Pixelbreite :real;
      Abstand : integer;
      KStand :integer;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:

  Zeit := 0;
  i := 0;
  Uc := 0;

  //berechnen für die Aufladung
  if (Form1.Aufladung.Checked = true) then  //überprüfung ob Aufladung aktiv ist
    begin
      while Uc <= (Betriebsspannung - (Betriebsspannung / 100)) do  //Anweisung für while-Schleife
        begin
          Uc := Betriebsspannung * (1 - exp(-Zeit / Tau));
          Kondensatorspannung [i] := Uc;
          Zeit := Zeit + (1 / 10000);
          i := i + 1;
        end
    end
    else
  //berechnen für die Entladung
      begin
        if (Form1.Entladung.Checked = true) then  //überprüfung ob Entladung aktiv ist
          begin
            Uc := Betriebsspannung;
            while Uc > (0 + Betriebsspannung / 1000) do  //Anweisung für while-Schleife
              begin
                Uc := Betriebsspannung * exp(-Zeit / Tau);
                Kondensatorspannung [i] := Uc;
                Zeit := Zeit + (1 / 100);
                i := i + 1;
              end
          end
      end;

  Schritte := i;
  i := 0;
  igenau := 0;
  Abstand := 30;
  k := Abstand;
  Pixelhoehe := Schritte /(ImgKurve.Height - Abstand);
  Pixelbreite := Schritte /(ImgKurve.Width - Abstand);

  //zeichen der Kurve
  repeat
    if (i = 0) then  //überprüfung ob i gleich Null ist
      begin
        ImgKurve.Canvas.Pen.Color := clblack;  //Linienfarbe (Schwarz)
        ImgKurve.Canvas.Pen.Width := 1;  // Linienbreite (1)
        ImgKurve.Canvas.MoveTo(Abstand, ImgKurve.Height - Abstand);
        i := i + 1;
      end
      else
        begin
          ImgKurve.Canvas.Pen.Color := clblack;  //Linienfarbe (Schwarz)
          ImgKurve.Canvas.Pen.Width := 1;  // Linienbreite (1)
          ImgKurve.Canvas.LineTo(k,ImgKurve.Height - Abstand - (round(Kondensatorspannung [i] * (ImgKurve.Height - Abstand))));
          KStand := ImgKurve.Height - Abstand - (round(Kondensatorspannung [i] * (ImgKurve.Height - Abstand)));
          i := round(igenau + Pixelbreite + Pixelhoehe);
          igenau := igenau + Pixelbreite + Pixelhoehe;
          k := k + 1;
        end;
  until i >= Schritte;
    if (Form1.Aufladung.Checked = true) then  //überprüfung ob Aufladung aktiviert ist
      begin
        ImgKurve.Canvas.Pen.Color := clblack;  //Linienfarbe (Schwarz)
        ImgKurve.Canvas.Pen.Width := 1;  // Linienbreite (1)
        ImgKurve.Canvas.LineTo(ImgKurve.Width - 30,KStand - 5);
      end
      else
        begin
          if (Form1.Entladung.Checked = true) then  //überprüfung ob Entladung aktiviert ist
            begin
              ImgKurve.Canvas.Pen.Color := clblack;  //Linienfarbe (Schwarz)
              ImgKurve.Canvas.Pen.Width := 1;  // Linienbreite (1)
              ImgKurve.Canvas.LineTo(ImgKurve.Width - 30,ImgKurve.Height - Abstand);
            end;
        end;

  //Skalierstriche waagerecht
    ImgKurve.Canvas.Pen.Width := 3;  // Linienbreite (3)

    ImgKurve.Canvas.MoveTo(25,KStand);  //Skalierstrich oben
    ImgKurve.Canvas.LineTo(30,KStand);
    ImgKurve.Canvas.TextOut(5,KStand,EBetriebsspannung.Text);  //Textausgabe                    

1:
2:

ImgKurve.Canvas.MoveTo(25,(round(KStand * 10)));  //Skalierstrich oben 
    ImgKurve.Canvas.LineTo(30,(round(KStand * 10)));