Detect all fonts

All fonts you may get by using Fonts property of TScreen class.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Assign(Screen.Fonts);
end;