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

procedure Button1Click...
var
 t: integer 
 Messwerte:=Array[0..1000] of integer;     //Messwerte:=Array[0..t] of integer nimmt er nicht    
 index : integer;

begin
 for i=0 to Series1.Count-1 do
  begin
   Messwerte[index]:= Series1.YValue[index] //hier sollen Y Werte ins Array geschreiben werden
   inc(index);
   if index:=1000 then index:=0;            //Schutz vor "Überlauf"
 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:

...

interface

uses
  Classes, Contnrs;

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
type
  TPoint = class(TPersistent)
  public
    XValue : double;
    YValue : double;
  end;

{------------------------------------------------------------------------------}
type
  TPointList = class(TObjectList)
  protected
    function GetPoint(Index: integer): TPoint;
  public
    constructor create;
    property Items[Index: integer]: TPoint read GetPoint;
  end;

...

{******************************************************************************}
implementation

{ TPointList }
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
constructor TPointList.create;
  begin
    inherited create;
  end;

{------------------------------------------------------------------------------}
function TPointList.GetPoint(Index: integer): TPoint;
  begin
    result := TPoint(inherited Items[Index]);
  end;