1:
2:
3:

      ......     
      TScanThread.Create(mychan1, xzoom);
      .....					

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

procedure TScanThread.Execute;
var
   ......
begin
    OutputDebugString('ich arbeite'); //ist nur für mich
    .....
    .....
    .....
    OutputDebugString('daten können abgeholt werden');//ist nur für mich
    Synchronize(UpdatePeaks);
    OutputDebugString('bin Fertig'); // ist nur für mich
    Terminate;
end;

procedure TScanThread.UpdatePeaks;
begin
    Form3.UpdatePeaks(FpeaksL, FpeaksR);
end;					

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

//die Arrays pL, pR sind mit den daten gefüllt 
procedure TForm3.UpdatePeaks(pL, pR: array of smallint);
var i: integer;
//testL: array of smallint;               // zum testen!!
begin
     //setlength(testL,2600);            //zum Testen!!
     
     for i:= low(pL) to high(pL) do
     begin
         //testL[i]:= pl[i]             //zum testen  funct!!
         //Main.Listbox1.items.add(inttostr(pl[i]))  //funct!!
        //hier wavebufL, wavbufR und Listbox1 EAccesViolation???
         Listbox1.items.add(inttostr(pl[i]))  
         wavebufL[i]:= pL[i];
         wavebufR[i]:= pR[i];
    end;
end;					

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:

procedure TEdit_Audio.OpenDateiClick(Sender: TObject);
var
    NewForm: TForm3;
begin
    if OpenDialog1.Execute then
    begin
       files:= OpenDialog1.Filename;
       filename:= ExtractFileName(files);

       NewForm:= TForm3.Create(self);
         
         .....
         .....
     end;
end;
// in NewForm = Form3-------------------
procedure TForm3.FormCreate(Sender: TObject);
begin
    xzoom:= 1; yzoom:= 1; maxxzoom:= 0;
    sec:= 0;
    if filename <> '' then
    begin
        Caption:= filename;
        myfile:= filename;
        Width:= 746;
        scrollx.Width:= zoomx.Left;
        .......
        ........
       setlength(wavebufL, 2600);//max witdh |muss noch genau bestimmt werden;
       setlength(wavebufR, 2600);//max width |also Auflösung 2monitore usw.;

       ....
       ....
   end
   else
   exit;
end;

//irgend wann click auf die scrollbox----------------------------------
procedure TForm3.ScrollXScroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
     .......
     .......

     TScanThread.Create(mychan1, xzoom);
end;					

1:

    Form3.UpdatePeaks(FpeaksL, FpeaksR);					

1:

NewForm:= TForm3.Create(self);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

//irgend wann click auf die scrollbox----------------------------------
procedure TForm3.ScrollXScroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
     .......
     .......

     TScanThread.Create(mychan1, xzoom,self);
end;