Código Delphi [-]if form1.Button1.Caption=('Button1') then begin
if form1.Button1.Caption=('Button1') then begin