diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp
index 58b727fb02..20bb39b516 100644
--- a/rtl/os2/sysutils.pp
+++ b/rtl/os2/sysutils.pp
@@ -367,7 +367,7 @@ var
   SystemFileName: RawByteString;
 Begin
   SystemFileName:=ToSingleByteFileSystemEncodedFileName(Filename);
-  Result:=(DosDelete(PChar (FileName))=0);
+  Result:=(DosDelete(PChar (SystemFileName))=0);
 End;
 
 function RenameFile (const OldName, NewName: RawByteString): boolean;