Lookup i BDE ...

Jeg har den her procedure: (lettere kopieret fra hjælpen ;))
procedure TForm1.Search1Click(Sender: TObject);
var
  V: Variant;
  C: Integer;
  A: String;
  Rs : String;
begin
  Inputbox('Search...','Title:',Rs);
  V := Table1.Lookup('Title',
    VarArrayOf([Rs, '']),
    'Title');
  if not (VarType(V) in [varNull]) then begin
    C := V[0];
    A := V[1];
    ShowMessage(IntToStr(C) + #10 + A);
  end
  else
    ShowMessage('Nothing Found');
end;


Problemet er, at uanset om jeg søger på noget der er i databasen eller ej, kommer den med ShowMessage('Nothing Found'); ... Hvor laver jeg fejlen?