tienes un problema con la consulta, estás tratando de darle valores a un parámetro que no existe ... ésta debería ser la consulta (o algo parecido al menos):
Código Delphi
[-]
begin
with DM do begin
ZQuery1.SQL.Clear;
ZQuery1.SQL.ADD('SELECT * From vendedores WHERE (numerovendedor= :NUM ) and (passwordvendedor= :PASS )');
ZQuery1.ParamByName('NUM').asinteger:=Usuario; ZQuery1.ParamByName('PASS').asinteger:=Usuario; ZQuery1.Open;
If (ZQuery.RecordCount>0) then
Else
...
end;
end;
Los parámetros llevan dos puntos adelante (NUM y PASS), y para saber si los datos que pasaron son correctos debes abrir la consulta (para ver si algún registro concuerda con las variables pasadas).
ahora bien ...
![Confused](http://www.clubdelphi.com/foros/images/smilies/confused.gif)
... ¿los usuarios tienen un número como password?
Saludos