Scusami MrCocò85 ma cè qualcosa che nn va, ecco il codice:

procedure TForm1.Edit1Change(Sender: TObject);
begin
q:=strtofloat(edit1.Text);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
l:=StrTofloat(edit2.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
var m :array[0..10] of real;
t :array[0..10] of real;
i,ii:integer;
begin

t[0]:= q * ((l/2)-(0*l));
t[1]:= q * ((l/2)-(0.1*l));
t[2]:= q * ((l/2)-(0.2*l));
t[3]:= q * ((l/2)-(0.3*l));
t[4]:= q * ((l/2)-(0.4*l));
t[5]:= q * ((l/2)-(0.5*l));
t[6]:= q * ((l/2)-(0.6*l));
t[7]:= q * ((l/2)-(0.7*l));
t[8]:= q * ((l/2)-(0.8*l));
t[9]:= q * ((l/2)-(0.9*l));
t[10]:= q * ((l/2)-(1*l));

m[0]:=0;
m[1]:=(t[0] * (0.1*l)) - (q * (0.1*l) * (0.1*l)) / 2;
m[2]:=(t[0] * (0.2*l)) - (q * (0.2*l) * (0.2*l)) / 2;
m[3]:=(t[0] * (0.3*l)) - (q * (0.3*l) * (0.3*l)) / 2;
m[4]:=(t[0] * (0.4*l)) - (q * (0.4*l) * (0.4*l)) / 2;
m[5]:=(t[0] * (0.5*l)) - (q * (0.5*l) * (0.5*l)) / 2;
m[6]:=(t[0] * (0.6*l)) - (q * (0.6*l) * (0.6*l)) / 2;
m[7]:=(t[0] * (0.7*l)) - (q * (0.7*l) * (0.7*l)) / 2;
m[8]:=(t[0] * (0.8*l)) - (q * (0.8*l) * (0.8*l)) / 2;
m[9]:=(t[0] * (0.9*l)) - (q * (0.9*l) * (0.9*l)) / 2;
m[10]:=0

for i:=round(m[0]) to round(m[10]) do
chart1.Series[0].add(i);
for ii:=0 to round(l) do
chart1.Series[1].add(ii);

chart1.Series[0].Clear;
chart1.Series[1].Clear;

il problema sta nel fatto che il grafico nn viene completamente tracciato!!
Dove sbaglio?
Perdonami, ma mi chiariresti le idee?
grazie