[Asinkrit]

Я вот другой прикол знаю, однажды он мне очень много крови попил, код вроде прозрачный, а среда на нем бредит.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  c:variant;
begin
  case TVarType(c) of
  varEmpty: ;
  varNull: ;
  varSmallint: ;
  varInteger: ;
  varSingle: ;
  varDouble: ;
  varCurrency: ;
  varDate: ;
  varOleStr: ;
  varDispatch: ;
  varError: ;
  varBoolean: ;
  varVariant: ;
  varUnknown: ;
  varShortInt: ;
  varByte: ;
  varWord: ;
  varLongWord: ;
  varInt64: ;
  varStrArg: ;
  varString: ;
  varAny: ;
  varTypeMask: ;
  varArray: ;
  varByRef: ;
  end;
 Inc(c);
end;

Компилируется, но попробуйте точку останова поставить на последнем операторе, а еще если пару сотен строк кода далее будет следовать, то попробуйте погулять по коду через Ctrl+Shift+вверх, Ctrl+Shift+вниз, а так же по Ctrl+MouseClick, обратите внимание, так же, что среда только три строки кода видит, вместо всех, по крайней мере у меня.