diff --git a/lcl/interfaces/gtk/gtkproc.pp b/lcl/interfaces/gtk/gtkproc.pp
index 9ed9e61827..dd86ffc022 100644
--- a/lcl/interfaces/gtk/gtkproc.pp
+++ b/lcl/interfaces/gtk/gtkproc.pp
@@ -724,7 +724,7 @@ Procedure GetTextExtentIgnoringAmpersands(FontDesc: PPangoFontDescription; Str:
 function FontIsDoubleByteCharsFont(TheFont: PGdkFont): boolean;
 {$IFDEF GTK1}
 function LoadDefaultFont: PGDKFont;
-Procedure GetTextExtentIgnoringAmpersands(Font: PGDKFont; Str: PChar;
+Procedure GetTextExtentIgnoringAmpersands(FontDesc: PGDKFont; Str: PChar;
   LineLength: Longint; lbearing, rbearing, width, ascent, descent: Pgint);
 {$EndIf}
 function GetDefaultFontName: string;