diff --git a/ideintf/propedits.pp b/ideintf/propedits.pp
index 75d92c9c18..915c72f897 100644
--- a/ideintf/propedits.pp
+++ b/ideintf/propedits.pp
@@ -2826,7 +2826,7 @@ end;
 
 procedure TQWordPropertyEditor.SetValue(const NewValue: ansistring);
 begin
-  SetInt64Value(StrToQWord(NewValue));
+  SetInt64Value(Int64(StrToQWord(NewValue)));
 end;
 
 { TFloatPropertyEditor }