Better?

Components/ScintEdit.pas

@@ -94,7 +94,7 @@ type
     procedure ApplyOptions;
     function GetAutoCompleteActive: Boolean;
     function GetCaretColumn: Integer;
-    function GetCaretColumnExpandedIntoVirtualSpace: Integer;
+    function GetCaretColumnExpandedForTabs: Integer;
     function GetCaretLine: Integer;
     function GetCaretPosition: Integer;
     function GetCaretVirtualSpace: Integer;
@@ -250,7 +250,7 @@ type
     procedure ZoomOut;
     property AutoCompleteActive: Boolean read GetAutoCompleteActive;
     property CaretColumn: Integer read GetCaretColumn write SetCaretColumn;
-    property CaretColumnExpandedIntoVirtualSpace: Integer read GetCaretColumnExpandedIntoVirtualSpace;
+    property CaretColumnExpandedForTabs: Integer read GetCaretColumnExpandedForTabs;
     property CaretLine: Integer read GetCaretLine write SetCaretLine;
     property CaretPosition: Integer read GetCaretPosition write SetCaretPosition;
     property CaretVirtualSpace: Integer read GetCaretVirtualSpace write SetCaretVirtualSpace;
@@ -719,7 +719,7 @@ begin
   Result := GetColumnFromPosition(GetCaretPosition);
 end;
 
-function TScintEdit.GetCaretColumnExpandedIntoVirtualSpace: Integer;
+function TScintEdit.GetCaretColumnExpandedForTabs: Integer;
 begin
   Result := Call(SCI_GETCOLUMN, GetCaretPosition, 0);
   Inc(Result, GetCaretVirtualSpace);

Projects/Src/CompForm.pas

@@ -3628,7 +3628,7 @@ end;
 procedure TCompileForm.UpdateCaretPosPanel;
 begin
   StatusBar.Panels[spCaretPos].Text := Format('%4d:%4d', [FActiveMemo.CaretLine + 1,
-    FActiveMemo.CaretColumnExpandedIntoVirtualSpace + 1]);
+    FActiveMemo.CaretColumnExpandedForTabs + 1]);
 end;
 
 procedure TCompileForm.UpdateEditModePanel;