wie funktioniert Boolean

[IceBube]

Delphi-Quellcode:

procedure...();
var s : string;
begin
s := Button1.Caption+Button2.Caption+Button3.Caption;
//
if (s = '000') then
begin
  //Gewonnen
  Form2.Show;
  Panel2.Caption:='gewonnen' 
end else
begin
  //Verloren
  Form2.Show;
  Panel2.Caption:='verloren' 
end;
end;
//
end;

;