diff --git a/ide/unitinfodlg.pp b/ide/unitinfodlg.pp
index eb179ba999..e36d73ea0d 100644
--- a/ide/unitinfodlg.pp
+++ b/ide/unitinfodlg.pp
@@ -123,12 +123,15 @@ begin
     OutIncludedBy.Caption:=IncludedBy;
 
     UnitPathMemo.Lines.Delimiter := ';';
+    UnitPathMemo.Lines.StrictDelimiter := true;
     UnitPathMemo.Lines.DelimitedText := MinimizeSearchPath(UnitPath);
 
     IncludePathMemo.Lines.Delimiter := ';';
+    IncludePathMemo.Lines.StrictDelimiter := true;
     IncludePathMemo.Lines.DelimitedText := MinimizeSearchPath(IncludePath);
 
     SrcPathMemo.Lines.Delimiter := ';';
+    SrcPathMemo.Lines.StrictDelimiter := true;
     SrcPathMemo.Lines.DelimitedText := MinimizeSearchPath(SrcPath);
 
     GotoIncludeDirectiveButton.Visible:=IncludedBy<>'';