DrawText API
そんなに便利?
字がくっつきすぎで 読みにくくない?

procedure TForm1.FormClick(Sender: TObject);
var
R : TRect;
flg: Cardinal;
begin
R := ClientRect;
flg := 0;
DrawText(Canvas.Handle,
'わぁ' +#10#13+
'くっつきすぎ'+#10#13+
'あちちちち'
,-1 ,R,flg)
end;