diff --git a/wst/trunk/record_rtti.pas b/wst/trunk/record_rtti.pas index ab08c0c17..416331cf4 100644 --- a/wst/trunk/record_rtti.pas +++ b/wst/trunk/record_rtti.pas @@ -351,7 +351,7 @@ end; procedure finalize_record_rtti(); begin {$IFDEF WST_RECORD_RTTI} - if ( RawTypeInfoList = nil ) then begin + if ( RawTypeInfoList <> nil ) then begin while ( RawTypeInfoList.Count > 0 ) do begin FreeRawTypeInfo(PTypeInfo(RawTypeInfoList.Items[0])); RawTypeInfoList.Delete(0);