Código
begin
if not (Screen.Fonts.IndexOf('Arial') <> -1) then
ShowMessage('Fonte não Instalada') else
ShowMessage('Fonte Instalada');
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009