请教这段码的错误之处

本人在一个单据中写了一个,商品定位的控件,其作用是将光标写位到某一商品处。但是,单击这个控件后根本无法起到作用。请教各位这段代码是否有错误之处。
procedure TfrmMasterDetailFnProductPrice.RzBitBtn1Click(Sender: TObject);
var
  FZmCScode,FZmCSname:string;
begin
  inherited;
  FZmCScode:=ZmCScode.Text;
  FZmCSname:=ZmCSname.Text;
  if  (ZmCScode.Text = '') and  (ZmCSname.Text= '') then
  DBGridEh1.DataSource.DataSet.First;
  if  (ZmCScode.Text<>'') and  (ZmCSname.Text<>'') then
    begin
    DBGridEh1.DataSource.DataSet.Locate('商品编号;商品名称',VarArrayOf([FZmCScode,FZmCScode]),[loPartialKey]);
    end;
  if  (ZmCScode.Text='') and  (ZmCSname.Text<>'') then
   begin
   DBGridEh1.DataSource.DataSet.Locate('商品编号',FZmCScode,[]);
   end;
  if  (ZmCScode.Text<>'') and  (ZmCSname.Text='') then
   begin
   DBGridEh1.DataSource.DataSet.Locate('商品名称',FZmCSname,[]);
   end;end;