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 ...
... ¿los usuarios tienen un número como password?
Saludos