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:

type
  TIntArray = array of Integer;
  TRichtung = (rStart, rUp, rDown);

procedure ColorSearch(src: TBitmap; var Buffer: TIntArray; r,g,b: Byte);
var
  x, y: Integer;
  p: PRGBTriple;
  pos: Word;
begin
  src.PixelFormat:=pf24bit;
  SetLength(Buffer, src.Width);
  for x:=0 to src.Width-1 do begin
    pos:=0;
    for y:=0 to src.Height-1 do begin
      p:=src.ScanLine[y];
      Inc(p, x);
      if (p.rgbtRed=r) and (p.rgbtGreen=g) and (p.rgbtBlue=b) then begin
        Inc(Buffer[x]);
        Inc(pos, y);
      end;
    end;
    if Buffer[x]>1 then begin
      Buffer[x]:=pos div Buffer[x];
    end else
      Buffer[x]:=-1;
  end;
end;

procedure DrawVektor(src: TBitmap; var Buffer: TIntArray; Color: TColor; Precise: Byte);
var
  x, x1, y: Integer;
  richtung: TRichtung;
begin
  src.Canvas.Pen.Color:=Color;
  y:=0; x1:=0;
  richtung:=rStart;
  for x:=0 to High(Buffer) do
    if Buffer[x]<>-1 then begin
      Case Richtung of
        rStart: begin
                  if Buffer[x]<y then Richtung:=rUp else Richtung:=rDown;
                  src.Canvas.MoveTo(x, Buffer[x]);
                end;
        rUp   : if (Buffer[x]>y) and (Buffer[x]-y>Precise) then begin
                  src.Canvas.LineTo(x1, y);
                  Richtung:=rDown;
                end;
        rDown : if (Buffer[x]<y) and (y-Buffer[x]>Precise) then begin
                  src.Canvas.LineTo(x1, y);
                  Richtung:=rUp;
                end;
      end;
      y:=Buffer[x];
      x1:=x;
    end;
  src.Canvas.LineTo(x1, y);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Buffer: TIntArray;
begin
  ColorSearch(Image1.Picture.Bitmap, Buffer, 255,204,2);
  DrawVektor(Image1.Picture.Bitmap, Buffer, clWhite, 6);
  Image1.Repaint;
end;                    

1:
2:
3:
4:

Sollte Michael mal erklären. Mit dieser Charttechnik soll man irgendwie Tendenze erkennen, aber einfach die Umkehrpunkte verbinden reicht wohl nicht. Schau Dir mal die lokalen Minima/Maxima an. Da wird dann dieser Punkt mit dem kleinsten/grössten Minima/Maxima der foglenden Tage verbunden: solange der Kurs wieder steigt, wird das lokale Minimum (Wendepunkt des Kurses) mit dem kleinsten Tagesminimum während der steigenden Kurse verbunden und umgekehrt. 
Der Schnittpunkt mit den anderen Linien soll dann den richtigen Einstiegspunkt für die Bestellung von Frischfisch sein oder so. Keine Ahnung.  

Wie gesagt: Sollte Michael mal erklären....