Código Delphi [-] procedure TfrmButton.Button2Click(Sender: TObject); begin Width := 500; end;
procedure TfrmButton.Button2Click(Sender: TObject); begin Width := 500; end;