Клик мимо итема(Item) в ShellListView

[zallza]

Еще раз Здраствуйте. Есть код:

procedure TForm11.sButton1Click(Sender: TObject);
Var ExB: WORD;
const
ADOProvider='Provider=Microsoft.Jet.OLEDB.4.0; Data Source=';
begin
   if sShellListView1.Selected.Caption='Dokument.mdb' then
   begin
      s:=sShellListView1.SelectedFolder.PathName;
      sEdit1.Text:=s;
      ExB:=MessageBox(handle,pchar('База даних успішно завантажена! Натисніть ОК для продовження'),pchar('Завантаження бази даних'),65);
      if Exb=IDOK then
      begin
         Form11.Hide;
         Form1.Show;
         DataModule2.ADOConnection1.ConnectionString:=ADOProvider+s;
         DataModule2.ADOConnection1.Close;
         DataModule2.ADOConnection1.Open;
         DataModule2.ADOTable2.Active:=True;
         DataModule2.ADOTable3.Active:=True;
         DataModule2.ADOTable4.Active:=True;
      end;
      if Exb=IDCANCEL then
      Form11.Close;
   end
   else
   ExB:=MessageBox(handle,pchar('Oберіть файл формату .mdb'),pchar('Помилка'),65);
end;

Если тыкать по итемам в ШелЛисВью то все нормально, но если нажать на пустое место в ШелЛисВью, то выдается ошибка. Подскажите плз, можно ли как то переловить ее?

[Stilet]

if sShellListView1.Selected=nil then exit;
 if sShellListView1.Selected.Caption='Dokument.mdb' then
...

[zallza]

Спасибо