Warning(Text : String)
Добавляет сообщение Text в формы с предупреждениями.

Функция Warning(Text) добавляет сообщение в окно со списком предупреждений и показывает это окно, если оно было скрыто. При этом предыдущие предупреждения не стираются.

Пример:

Procedure OnCreate;
var
  i:integer;
Begin
  for i:= 0 to 9 do Warning(ToStr(i) + '-я итерация');
End;

© RTIT