unit unitdots.dot; {$mode objfpc}{$H+} interface type TColor = longint; var test: integer; foo: integer; implementation end.