Verificando se uma determinada fonte esta instalada

{A função abaixo implementa uma rotina para testar se determinada fonte esta instalada no windows. Para evitar que a fonte a ser testada seja escrita com espaços em branco indevidos, usa-se a função Trim para retirar os espaços em branco.}


Function FonteExiste(Fonte:STring):Boolean;
begin
with Screen.Fonts do
Result := IndexOf(Trim(Fonte)) > 0;
end; //Exemplo:


Procedure TForm1.Button1Click(Sender:Tobject);
begin
If FonteExiste('Times New Roman') then
ShowMessage(' Fonte já existe !') Else
ShowMessage(' Fonte Inexistente !');
end;