teechart i stringgrid ??????

Panowie tchartr i stringrid jak to polaczyc zeby z danych z kolumn mi robilo wykrech wykladniczy w techarcie z gory dziekuje jezeli ktos pomoze mam kod cos tam zrbolilem ale nie rysuje mi odpowiednich wykresow ??

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, OleCtrls, Chartfx3, TeEngine, Series, ExtCtrls,
TeeProcs, Chart, Buttons, TeeFunci, ActnMan, ActnColorMaps, DB, TeeData;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Chart1: TChart;
Series1: TLineSeries;
TeeFunction1: TAddTeeFunction;
TwilightColorMap1: TTwilightColorMap;
Button2: TButton;
SeriesDataSet1: TSeriesDataSet;
PaintBox1: TPaintBox;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
procedure StringGrid1Click(Sender: TObject);
procedure StringGrid1Enter(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
i,x,y,tx,ty:integer;
implementation

{$R *.DFM}

procedure TForm1.StringGrid1Click(Sender: TObject);

begin
x:=stringgrid1.col;
y:=stringgrid1.row;
stringgrid1.cells[x,y]:='';
label1.enabled:=true;
edit1.enabled:=true;
edit1.setfocus;
end;

procedure TForm1.StringGrid1Enter(Sender: TObject);
begin
stringgrid1.cells[0,0]:='Moc W';
stringgrid1.cells[1,0]:='Strumien swietlny';
stringgrid1.cells[2,0]:='0,8 Strumienia';
stringgrid1.cells[3,0]:='0,7 Strumienia';
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then stringgrid1.cells[x,y]:=edit1.text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
for y:= 1 to 6 do
begin
stringgrid1.cells[2,y]:=floattostr(strTofloat(stringgrid1.cells[1,y])*0.8);
stringgrid1.cells[3,y]:=floattostr(strTofloat(stringgrid1.cells[1,y])*0.7);
With Chart1 do
begin

Series1.AddXY( X,y);
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
With Series1 do
begin
If Count > 0 Then
//Increment X Axis value and add a new random point
AddXY (XValues.Last+(Round(x)), (YValues.Last/YValues.Last-1)+(Round(100)), '', clBlue)
Else
//Add a new random point
AddXY (1, (Round(100)), '', clBlue);
end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
With Series1 do
begin
Datasource:=Series1;
SetFunction(TAverageTeeFunction.Create(Self));
FunctionType.Period := 4;
CheckDatasource;

  end;

end;

procedure TForm1.Button4Click(Sender: TObject);
var tmpLineSeries:TLineSeries;
begin
tmpLineSeries:=TLineSeries.Create(self);
Chart1.AddSeries(tmpLineSeries);
tmpLineSeries.FillSampleValues(10);

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
for i := x to 100000 do Series1.AddY(y);

end;

procedure TForm1.Button6Click(Sender: TObject);

var a:integer;
begin
randomize;
for y:=1 to 10 do stringgrid1.Cells[1,y]:=floattostr (random(100)) ;

with series1 do
begin
addXY(x,y);
end;

end;

end.

bede wdzieczny po prostu nie jestem dobrym programista w delphi niestety ktos to umie zrobic ??