打印九九乘法口决表

procedure TForm3.btn_cfClick(Sender: TObject);
var i,j : Integer;
begin
  Form1.Refresh;
  for i:=1 to 9 do
    for j:=1 to i do
    begin
      Form3.Canvas.TextOut(j*50-40,i*20+40,IntToStr(j)+' * '+IntToStr(i)+'='+IntToStr(i*j));
    end;
end;