Code zu lang -> 2. Unit ??

[shareholder]

in die unit2 habe ich jetzt
uses MainUnit; geschrieben

aber der compiler meldet nun in meiner prozedur:
procedure LVExtsDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); Undefinierter Bezeichner: TDragState

der code

Delphi-Quellcode:

unit unit2;

interface

  procedure Starten;
  procedure LVExtsDragOver(Sender, Source: TObject; X, Y: Integer;
            State: TDragState; var Accept: Boolean);

implementation

uses untMain;

procedure Starten;
var reg : TRegistry;
    keys : TStringList;
.
.
.