Variabeln Problem!

[malo]

Du kannst der Variablen in dem Abschnitt keinen Wert zuweisen. Nur einen Typen. Also so:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    SRot: TShape;
    SGruen: TShape;
    SGelb: TShape;
    BSchalten: TButton;
    procedure BSchaltenClick(Sender: TObject);
  private
    VSchalten: integer;
  public
    { Public-Deklarationen }
  end;

  var
  Form1: TForm1;
  //VSchalten: Integer; <-- da nicht mehr



implementation

{$R *.dfm}

Und später, in einem Aufruf (z.B. OnCreate-Ereignis (Objektinspektor)) auf 0 setzen.

edit: Aus dem Var-Abschnitt muss das raus. Du solltest die Variable aus dem var-Abschnitt in den private-Abschnitt verlegen.