diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index 1d9da56479..80af051573 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -294,6 +294,7 @@ function DbgsVKCode(c: word): string;
 function DbgS(const ASize: TSize): string; overload; inline;
 function DbgS(const ATM: TTextMetric): string; overload;
 function DbgS(const AScrollInfo: TScrollInfo): string; overload;
+function DbgS(const AVariant: Variant): string; overload;
 
 procedure DbgOutThreadLog(const Msg: string); overload;
 procedure DebuglnThreadLog(const Msg: string); overload;
@@ -2312,6 +2313,17 @@ begin
   if Result = '' then Result := '(no scrollinfo)';
 end;
 
+function DbgS(const AVariant: Variant): string;
+begin
+  if TVarData(AVariant).VType = varEmpty then
+    result := '<empty>'
+  else
+  if TVarData(AVariant).vtype = varNull then
+    result := '<null>'
+  else
+    result := AVariant;
+end;
+
 procedure DbgOutThreadLog(const Msg: string);
 var
   PID: PtrInt;