ke tal amigo franroju que tal si intentas hacer tu consulta de esta forma:
Código Delphi
[-]
begin
query.Close;
query.SQL.Clear;
query.SQL.Add('select * from usuarios where usuario = '+'"'+edit1.text + '"'+' and contrasenia ='+ '"' + edit2.text +'"');
query.ExecSql;
query.Open;
end;
Saludos...