Hallo erstmal.
Du hast einen grossen Fehler gemacht:
du verwendest normale Funktionen und Prozeduren anstelle von Methoden.
Deshalb steht bestimmt 100 Mal in deinem Sourcecode "
Form4.Irgendetwas".
Hier erstmal der schlechte Code:
Delphi-Quellcode:
procedure Auswertung;
begin
.....
Form4.button3.Visible := false;
Form4.button4.Visible := false;
Form4.button5.Visible := false;
...
Und so wär's viel besser:
Delphi-Quellcode:
TForm4 = class(TForm)
....
private
{ Private-Deklarationen }
// private Variablen
Spieleein : Array[1..4] of Boolean;
PCcheck,SPcheck: boolean; //PC oder SPieler dran
Buttonwahl: integer; // Pc wählt im Random ein Button aus
// private Methode(n)
procedure Auswertung; // *** <==========
public
{ Public-Deklarationen }
end;
...
procedure TForm4.Auswertung; // *** <==========
begin
....
// und jetzt muss das "Form4" weg !!
// das spart viel Schreibarbeit und hat auch andere Vorteile
button3.Visible := false;
button4.Visible := false;
button5.Visible := false;
Ich würde vorschlagen, du schreibst alles um, bis die ganzen "Form4" alle verschwinden (mit Ausnahme von var Form4:TForm4
.