procedure TForm1.Button1Click(Sender: TObject); begin with ValueListEditor1 do if goRowSelect in Options then begin Options := Options - [goRowSelect]; Button1.Caption := '&Valider'; end else begin Options := Options + [goRowSelect]; Button1.Caption := '&Modifier'; end; end;