J'aimerais faire une fonction en Delphi qui inscrit un texte, passé en paramètre, en gros

exemple : ecritGros('un texte');

donne

* * *** * *** * * * ***
* * * * *** ** * *** **
* * * * * * * * *
*** * * * *** * * * ***

en tout cas, vous voyer le genre

Si vous avez une référence où je pourrais trouver un algorithme qui fait
ça, ça m'aiderait beaucoup

Merci