めんどくさいからおまえなんかちょくせつびょうがしてしまえ

procedure TForm1.Button1Click(Sender: TObject);
begin
　 　 with Form1.Canvas do
　 　 begin
　 　 　 　 brush.style:=bsClear;
　 　 　 　 TextOut(10, 10, 'abcde');
　 　 end;
end;