TBaseValue.InvalidCast should return, not raise EInvalidCast

[GoogleCodeExporter]

Change this :

function TBaseValue.InvalidCast(TargetType: string): Exception;
begin
  raise EInvalidCast.CreateFmt('Cannot cast %s to %s',
    [TypeName, TargetType]);
end;

into this :

function TBaseValue.InvalidCast(TargetType: string): Exception;
begin
  Result := EInvalidCast.CreateFmt('Cannot cast %s to %s',
    [TypeName, TargetType]);
end;

Original issue reported on code.google.com by pvanlogc...@gmail.com on 5 Jul 2013 at 2:45