// Falls man bestimmte Schriftarten einsetzt, aber nicht weiß,
// ob diese auf dem Zielrechner vorhanden sind, kann man die
// entsprechenden Fonts als Ressource dem Programm zufügen
// und beim Start installieren lassen. Einfacher ist es ein paar
// Schriftarten vorzuschlagen, und falls eine vorhanden ist,
// diese auszuwählen. Bedingung ist jedoch, dass bei den
// Komponenten (TLabel, TEdit, TMemo usw.) die Eigenschaft
// PARENTFONT auf TRUE gestellt ist.


// Getestet mit D2010 unter Win7

var 
  Names: Array [1 .. 4] of String = ( 
    'Britannic Bold', 
    'Asimov', 
    'Broadway', 
    'Bauhaus 93' 
  ); 
 
function FontName: String; 
var 
  i: Integer; 
begin 
  Result := ''; 
  for i := 1 to Length(Names) do 
    if Screen.Fonts.IndexOf(Names[i]) >= 0 then 
    begin 
      Result := Names[i]; 
      Break; 
    end; 
end;

 
// Beispielaufruf 
 
procedure TForm1.FormCreate(Sender: TObject); 
var 
  F: String; 
begin 
  F := FontName; 
  if F <> '' then 
    Font.Name := F; 
end;