diff --git a/components/turbopower_ipro/iphtml.pas b/components/turbopower_ipro/iphtml.pas
index 8b75cc355b..ee66464c51 100644
--- a/components/turbopower_ipro/iphtml.pas
+++ b/components/turbopower_ipro/iphtml.pas
@@ -10087,8 +10087,6 @@ begin
 end;
 
 procedure TIpHtmlNodeBlock.ApplyQueueProps(aCurElem: PIpHtmlElement; var aPrefor: Boolean);
-var
-  TextMetrics : TLCLTextMetric;
 begin
   with aCurElem.Props do begin
     if (FCurProps = nil) or not AIsEqualTo(FCurProps) then begin