Nicht verständliche Fehlermeldungen

[Beat]

Hallo. Ich habe mich eigentlich im Unterricht zum Spaßvertreib dran gemacht nebenbei ein TicTacToe zu programmieren, so schwer ist es ja nicht .

Falsch gedacht. Ich bin nun dabei auszulesen wie man gewinnt.

Delphi-Quellcode:

procedure Gewinner;
begin
If (Button1.Caption='X') and (Button2.Caption='X') and (Button3.Caption='X') then ShowMessage ('hi');
end;

Ja der Quelltext ist unvollständig, er soll nichts aussagen. Das war nur ein Test und irgenwas ist schiefgelaufen.
Aufjedenfall sagt er mir beim compilieren folgendes:

Undefinierter Bezeichner: 'Button1' .
Der Button heisst aber auf jedenfall 1

Help