根据RzDbgrid的列值拼接窗体的问题(100分)

刚开始的时候双击还可以正常的替换窗体，到了最后一条记录的时候双击就不能正常替换了，请高手帮帮忙看一下，谢谢了.代码如下：
procedure TForm1.RzDBGrid1DblClick(Sender: TObject);
var
ud:string;
ib:string;
begin
panel2.Visible := true;
ud:=RzDbgrid1.DataSource.DataSet.FieldByName('lb').asstring;
if ud='建设用地规划许可证' then
showpanel(form3.Panel1,form1.Panel2);
if ud='建设项目选址意见书' then
showpanel(form3.Panel1,form1.Panel2);
if ud='建设工程规划许可证' then
showpanel(form4.Panel1,form1.Panel2);
if ud='乡村建设规划许可证' then
showpanel(form5.Panel1,form1.Panel2);
end;

高手帮帮忙呀。。。。。。。

是不是我的代码有错？