Ungenügende Forward-/External-Deklaration

[asdfghjkl]

Hallo, ich hab ein problem bei meinem Programm; ich arbeite gerade an einem Morse-Automaten; sobald "SOS" gesendet wird, soll eine Lampe erscheinen ("Warnlicht").

Code:

type
  TZustand =(A,Eins,Zwei,Drei,Vier,Fuenf,Sechs,S,O,Lampe );
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Sh1: TShape;
    Warnlicht: TShape;
    procedure ProcEins (Eingabe : Integer);
    procedure ProcZwei (Eingabe : Integer);
    procedure ProcS (Eingabe : Integer);
    procedure ProcDrei (Eingabe : Integer);
    procedure ProcVier (Eingabe : Integer);
    procedure ProcO (Eingabe : Integer);
    procedure ProcFuenf (Eingabe : Integer);
    procedure ProcSechs (Eingabe : Integer);
    procedure ProcLampe (Eingabe : Integer);
    procedure ProcA (Eingabe : Integer);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Sh1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Zustand : TZustand;

implementation

Dieser Fehler

Code:

[Fehler] Unit1.pas(16): Ungenügende Forward- oder External-Deklaration: 'TForm1.ProcEins'

wiederholt sich dann für jede procedure.

Wegen anderen Problemen hab ich auch noch ein wenig mit dem Warnlicht bzw. Sh1. gespielt.
(es wurde als undefinierter bezeichner angegeben obwohl ich den definitiv angegeben hab).

Könnt ihr mir bitte helfen?

Danke im Voraus & schöne Grüße!