1. 
用 try except
try
  xxx := Lookup...
except
  ShowMessage('找不到');
end;    2.
var LUResult : Variant;    LUResult := Lookup....
if LUResult <> null then
  xxx := LUResult;