请教一个关于Canvas输出的简单问题。谢谢。

Question

var
  ss:string;
  XStep,YStep:integer;
  i,X,Y:integer;
begin
  ss:='I Love YOU';
  Image1.Canvas.Font.Name :='宋体';
  Image1.Canvas.Font.Size :=10;
  YStep:=Image1.Canvas.TextHeight(ss)+7;
  XStep:=Image1.Canvas.TextWidth(ss)+7;
  Image1.Canvas.Brush.Color := clyellow;
  X:=30;
  Y:=30;
  for i:=1 to 7 do
  begin
    Image1.Canvas.Rectangle(X,Y,X+XStep,Y+YStep);    //最后是Y+YStep
    Image1.Canvas.TextOut(X+2,Y+2,ss);
    X:=X+XStep;
  end;
end;