EVariantError! - Kann mir mal ganz schnell einer helfen???

[EDatabaseError]

Delphi-Quellcode:

procedure Tdatasearch.Button1Click(Sender: TObject);
var s1, s2: String;
begin
s1 := Edit1.Text;
s2 := Edit2.Text;
 if CheckBox1.Checked = true then
 begin
  if CheckBox2.Checked = true then
  begin
   if DataModule4.Tabelle.Locate('ART_NAME;ART_NUM', VarArrayOf([s1, s2]), [loPartialKey]) then
   begin
    send;
   end
   else
   begin
    MessageDlg('Nicht gefunden!!!', mtError, [mbOK], 0);
   end;
  end
  else
  begin
   if DataModule4.Tabelle.Locate('ART_NAME', s1, [loPartialKey]) then
   begin
    send;
   end
   else
   begin
    MessageDlg('Nicht gefunden!!!', mtError, [mbOK], 0);
   end;
  end;
 end
 else
 begin
  if Checkbox2.Checked = true then
  begin
   if DataModule4.Tabelle.Locate('ART_NUM', s2, [loPartialKey]) then
   begin
    send;
   end
   else
   begin
    MessageDlg('Nicht gefunden!!!', mtError, [mbOK], 0);
   end;
  end
  else
  begin
   MessageDlg('Keine Suchoption gewählt!!!', mtError, [mbOK], 0);
  end;
 end;
end;

Ich bekomm immer nen EVariantError in den Locate Zeilen. Konvertierung von Variant ungültig...

WHY????


Mfg

EDE