const OutString='输出的字'
begin
  Form1.Canvas.Brush.Style:=bsClear;
  //设置文字颜色
  Form1.Canvas.Font.Color:=clBlack;
 //输出初始文字
  Form1.Canvas.TextOut(x0,y0,OutString);
end;