mmh, ich halte das Programm irgendwie für nicht grad tauglich. ^^
Dein Problem könnte man mit einer Unit-Globalen Variable lösen. (Ich weiß, Globale Variablen sind böse. ^^)
Du schreibst oben, bei den deklarationen bei private
Dann steht diese Variable in jeder Funktion/Prozedur dieser Unit zur Verfügung.
Nun kannst du bei den + und - Button die Variable rechenart füllen.
Bei = Button machst du dann eine Case-Anweisung, wie ich oben beschrieben habe.