1 files changed, 0 insertions, 8 deletions
diff --git a/examples/gui/gridtest/gridtest.lpr b/examples/gui/gridtest/gridtest.lpr
index 24372c22..3f461155 100644
--- a/examples/gui/gridtest/gridtest.lpr
+++ b/examples/gui/gridtest/gridtest.lpr
@@ -57,15 +57,7 @@ begin
 end;
 
 procedure TMainForm.btnQuitClick(Sender: TObject);
-var
-  sl: TStringList;
-  i: integer;
 begin
-  sl := fpgApplication.GetFontFaceList;
-  Writeln('Fontface Listing:');
-  for i := 0 to sl.Count-1 do
-    Writeln('  ', sl[i]);
-  sl.Free;
   Close;
 end;