Procedure Problem Fehlermeldung?!?

[Hansi]

Hey,

Bekomme immer diese Fehlermeldung: Undefinierter Bezeichner "Self". Was muss ich vor Self schreiben?

Hintergrundinfo: Über einen RadioGroup soll der Parameter Zeitraum(ZR) abgefragt werden, um dann den Parameter im TDBChart zu verwenden. Deshalb schreibe ich hier eine eigene Procedure um beim OnClick Ereignis diese Procedure auszuführen.

Delphi-Quellcode:

procedure Chart(ZR:Integer);
var
Aktienchart:TLineSeries;
begin
  with Form1.Query1 Do
    begin
      ZR:=ZR+1;
      Form1.Query1.SQL.Clear;
      Form1.Query1.SQL.Add('SELECT Datum, Close FROM '+Form1.ComboBox1.Text+'');
      Open;
    end;
Aktienchart:=TLineSeries.Create(Self);
with Aktienchart do
  begin
    ParentChart:=Form1.DBChart1;
    DataSource:=Form1.Query1;
    XLabelsSource:='Datum';
    YValues.ValueSource:= 'Close';
    SeriesColor:= clBlue;
    CheckDatasource;
  end;
end;