dringende Frage zur : Tic Tac Toe Programmierung ! - Bitte um schnelle Antwort

[Fazer]

habe noch ne frage
unzwar wenn ich das eingebe steht ausdruckstyp muss BOOLEAN sein:

Delphi-Quellcode:

procedure TForm1.zaehler;
begin
xscore := 0;
oscore := 0;

if (lblGewinner.Caption := 'Spieler 1 hat gewonnen !') then
begin
xscore := xscore + 1;
lblXScore.Caption := IntToStr(xscore);

end;
end;

WIe kann ich das beheben?