Alexander
procedure TForm1.btnStartClick(Sender: TObject);
var
k1,k2,step:integer;
x,y,z:real;
begin
step:=20;
series1.Clear;
series1.NumXValues:=step;
series1.NumZValues:=step;
memo1.Lines.Add('k1..k2...x...y...z');
for k1:=1 to step do begin
x:=k1/10;
for k2:=1 to step do begin
y:=k2;
z:=k1/10+k2/10;
series1.AddXYZ(x,z,y);
series2.AddXY(x,y,'',clRed);
series1.AutomaticLevels:=true;
end;
end;
end;
