Code:

{$MESSAGE 'Появился новый hint!'}

{$MESSAGE Hint 'И это тоже hint!'}

{$MESSAGE Warn 'А это уже Warning'}

{$MESSAGE Error 'Эта строка вызовет ошибку компиляции!'}

{$MESSAGE Fatal 'А это фатальная ошибка компиляции!'}

Code:

destructor TumbSelectionTempTable.Destroy;

begin

// Clear the temp tables.

{$MESSAGE Warn ' - remember to free all allocated objects'}

ClearAllOuterWorldFold;

if FSubjectsTempTableCreated then

   DropTempTable(FTableName);

FOuterWorldsFolded.Free;

FQuery.Free;

inherited;

end;