diff --git a/ideintf/propedits.pp b/ideintf/propedits.pp
index d2b0e4e137..348a6efe8d 100644
--- a/ideintf/propedits.pp
+++ b/ideintf/propedits.pp
@@ -2999,9 +2999,10 @@ procedure TBoolPropertyEditor.SetValue(const NewValue: ansistring);
 var
   I: Integer;
 begin
-  if CompareText(NewValue, 'False') = 0 then
+  if (CompareText(NewValue, 'False') = 0) or (CompareText(NewValue, 'F') = 0) then
     I := 0
-  else if CompareText(NewValue, 'True') = 0 then
+  else 
+  if (CompareText(NewValue, 'True') = 0) or (CompareText(NewValue, 'T') = 0) then
     I := 1
   else
     I := StrToInt(NewValue);