Código
with Screen.Fonts do
if IndexOf('Courier New') >= 0 then
ShowMessage('A fonte está instalada.')
else
ShowMessage('A fonte não está instalada.');
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009