Locate a record and show that record on a form

The Below code works fine when opening a form to location a selected record.
However, when using this same code on the Change event of my combobox, the
form record does not show the new recored.
Anyone know what I am doing wrong here?

procedure TfrmCustomers.cxCustomersPropertiesChange(Sender: TObject);
var CustomerID : integer;
var strfield, strvalue: string;
opts : TLocateOptions;

begin
CustomerID := cxCustomers.EditValue;

strfield := 'CustomerID';
strvalue := IntToStr(CustomerID);
opts := [loCaseInsensitive];

if not datPPM.datCustomers.DataSet.Locate(strfield, strvalue, opts) then
ShowMessage(strvalue + ' not found in ' + strfield)
else
datPPM.datCustomers.DataSet.Locate(strfield, strvalue, opts);

end;


.