Delphi dicas

Consulta do delphi

Procedure Tfrm_menu.Edit1Change(Sender: TObject);

var campo,inicio,fim:string;

begin

        if radiobutton1.Checked then begin campo := 'cod'; inicio := '="'; fim := '"' end;

        if radiobutton2.Checked then begin campo := 'produto'; inicio := 'like "%'; fim := '%"' end;

        with dm.qr_produtos do begin

                Close; SQL.Clear;

                SQL.Add('SELECT * FROM produtos WHERE '+CAMPO+' '+INICIO+''+edit1.Text+''+FIM+' ORDER BY '+campo);

                Open;

        end;

end

por : Francisco Lima Silva