请教高手：一个查询问题？

Question

procedure Tdatequery.BitBtn1Click(Sender: TObject);
begin
try
        with adoquery1 do begin
                close;
                sql.Clear;
                sql.Add ('select PHA.PO_NUM,PHA.RECEIVE_DATE,PLA.SEGMENT,SV.SHIP_QTY,SV.SHIP_DATE ');
                sql.Add ('from PO_HEADERS_ALL PHA,PO_LINES_ALL PLA,SHIPMENT_VIEW SV');
                sql.Add ('where PHA.PO_NUM=PLA.PO_NUM AND PLA.SEGMENT=SV.SEGMENT AND PHA.PO_NUM=SV.PO_NUM');
                sql.add ('and trim( richedit1.Text)');
                open;
                dbgrid1.Columns[0].Visible :=false;
                dbgrid1.Columns[1].width :=80;
                dbgrid1.Columns[2].Width:=80;
                dbgrid1.Columns[3].Width:=90;
                dbgrid1.Columns[4].Width:=80;
                dbgrid1.Columns[5].Width:=80;           end;
except
         messagedlg('提示！查询表达式出错！',mtInformation,[mbOk], 0);
end;
end;
有错误吗？

Answer 1

if trim(richedit1.text) <> '' then
  sql.add (' and '+ trim(richedit1.Text));

Answer 2

sql.add ('and trim( richedit1.Text)');什么意思

Answer 3

sql.add ('and trim( richedit1.Text)'); 
->
               sql.add ('and SomeField = ''' + trim( richedit1.Text) + '''');