1. Das ist kein gemeinschaftsprojekt, das du planst. Das gehört in ein anderes Forum (eins der Delphi-Foren oben)
2. Zu deinem Problem:
Groß-und Kleinbuchstaben unterscheidet Delphi so nicht
Was hälst du von dem Code:
Delphi-Quellcode:
var
Form1: TForm1;
a : integer = 0;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
a := a+1; //a wird immer um 1 erhöht
case a of
1: ShowMessage ('a = 1'); // wenn a = 1 ist kommt diese Message
2: ShowMessage ('a = 2'); // gleiches, nur hier ist a = 2
3: begin
ShowMessage ('a = 3'); // gleiches wenn a = 3 ist
a := 0; // a wird auf 0 zurückgesetzt. Beim nächsten Klick ist es also 1
end;
end; // case-Anwendungen werden mit einem end beendet
end;
Dieses Beispiel braucht nur einen Button und sollte das ganze verständlich machen
Deine
unit halte ich nämlich für etwas überkompliziert für einen Anfänger, der nur case lernen will