procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
num:string;
begin
for i:=0 to [color=FF0000][color=C0C0C0][color=FF0000][color=0000FF][color=FF0000]memo1.Lines.Count-1[/color][/color][/color][/color][/color] do
begin
num:=memo1.Lines[i];
series1.[color=FF0000]AddXY(i+1,strtofloat(num),inttostr(i+1),clred);[/color]
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
series1.Clear;
end;

end.
帮忙解释上面的程序的意思，尤其是画加红的地方。