请问这个语句应该如何写?10分送上! ( 积分: 10 )

FW们,以下代码可以实现一个正玄曲线的显示，现在我想实现三个曲线的同时显示,代码应该如何改?!共式总有三个，后两个公式就在此段代码的下方！
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:=100 to Width do
Canvas.Pixels[i, Round(sin(0.273181*(i MOD 23))*20)+21]:=clred
//G=INT(SIN(0.224399*(A MOD 28))*20)+21
// S=INT(SIN(0.190399*(A MOD 33))*20)+21

end;

end.

FW们,以下代码可以实现一个正玄曲线的显示，现在我想实现三个曲线的同时显示,代码应该如何改?!共式总有三个，后两个公式就在此段代码的下方！
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:=100 to Width do
Canvas.Pixels[i, Round(sin(0.273181*(i MOD 23))*20)+21]:=clred
//G=INT(SIN(0.224399*(A MOD 28))*20)+21
// S=INT(SIN(0.190399*(A MOD 33))*20)+21

end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:=100 to Width do
begin
Canvas.Pixels[i, Round(sin(0.273181*(i MOD 23))*20)+21]:=clred;
Canvas.Pixels[i, Round(sin(0.224399*(i MOD 28))*20)+80]:=clred;
Canvas.Pixels[i, Round(sin(0.190399*(i MOD 33))*20)+140]:=clred;
end;
//G=INT(SIN(0.224399*(A MOD 28))*20)+21
// S=INT(SIN(0.190399*(A MOD 33))*20)+21

end;

放在一起不就行了。

谢谢！