diff --git a/delphi/KPANSI.PAS b/delphi/KPANSI.PAS
index 3a7d41f..7fb5db3 100644
--- a/delphi/KPANSI.PAS
+++ b/delphi/KPANSI.PAS
@@ -2188,6 +2188,13 @@ begin
     SelectObject(FLiveDC, FPaintFont);
     SetBkMode(FLiveDC, OPAQUE);
     FlushPendingScrolls;
+    { Dirty old cursor row to erase ghost when cursor moved between rows }
+    if FCursorRow <> FLastCursorRow then
+    begin
+      if (FLastCursorRow >= 0) and (FLastCursorRow < FRows) then
+        FDirtyRow[FLastCursorRow] := True;
+      FDirtyRow[FCursorRow] := True;
+    end;
     for Row := 0 to FRows - 1 do
     begin
       if FAllDirty or FDirtyRow[Row] then