[Asinkrit]

А еще вот так, попробуйте скомпилировать:

Код:

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