图片显示(5分)

procedure Tgb_k.PageControl1Change(Sender: TObject);
begin
if DM.CDS_gb_01.state=dsInsert then
begin
image1.Visible:=false;
end
else
try
if FileExists(dm.CDS_GB_01.fieldbyname('photo').asstring) then
image1.Picture.LoadFromFile(dm.CDS_GB_01.fieldbyname('photo').asstring);
except
ShowMessage('sorry,no picture');
end;
end;

我点dbgird里面的记录时 如果 photo 有图片目录 就显示图片 没有会显示上条
显示过的图片记录 而不能显不ShowMessage('sorry,no picture');