diff --git a/lcl/lcltaskdialog.pas b/lcl/lcltaskdialog.pas
index 6cf833bd18..db292ea455 100644
--- a/lcl/lcltaskdialog.pas
+++ b/lcl/lcltaskdialog.pas
@@ -735,7 +735,7 @@ begin
   W := aWidth-X-8;
   R.Right := W;
   R.Bottom := result.Height;
-  DrawText(result.Canvas.Handle,PChar(Text),Length(Text),R,DT_CALCRECT or DT_WORDBREAK);//lazarus does not return box height on OSX (Lazarus bug), the height is stored in the rect in all cases, so we don't need to use the result
+  LCLIntf.DrawText(result.Canvas.Handle,PChar(Text),Length(Text),R,DT_CALCRECT or DT_WORDBREAK);//lazarus does not return box height on OSX (Lazarus bug), the height is stored in the rect in all cases, so we don't need to use the result
 
   result.SetBounds(X,Y,W,R.Bottom);
   result.Caption := Text;