Código Delphi [-]begin if self.Fillcolor = clWhite thenSelf.Fillcolor := clSilver; else Self.Fillcolor := clWhite; end if;
begin if self.Fillcolor = clWhite thenSelf.Fillcolor := clSilver; else Self.Fillcolor := clWhite; end if;